Private
Sub
Command1_Click()
End
topa_Click()
xgeri_Timer()
topa.Left = topa.Left - 100
If
topa.Left < 0
Then
xileri.Enabled =
True
xgeri.Enabled =
False
xileri_Timer()
topa.Left = topa.Left + 100
topa.Left > 13000
ygeri_Timer()
topa.top = topa.top - 100
topa.top < 0
yileri.Enabled =
ygeri.Enabled =
yileri_Timer()
topa.top = topa.top + 100
topa.top > 9000