Private Sub Command1_Click()
End

End Sub

Private Sub topa_Click()

End Sub

Private Sub xgeri_Timer()
topa.Left = topa.Left - 100
If topa.Left < 0 Then

xileri.Enabled = True
xgeri.Enabled = False

End If
End Sub

Private Sub xileri_Timer()
topa.Left = topa.Left + 100
If topa.Left > 13000 Then

xileri.Enabled = False
xgeri.Enabled = True

End If



End Sub

Private Sub ygeri_Timer()
topa.top = topa.top - 100
If topa.top < 0 Then

yileri.Enabled = True
ygeri.Enabled = False

End If
End Sub

Private Sub yileri_Timer()
topa.top = topa.top + 100
If topa.top > 9000 Then

yileri.Enabled = False
ygeri.Enabled = True

End If
End Sub

güzel paylaşım