purosinaloa respondió:
Hice esto a ver si te ayuda. Saludos. Option Explicit Dim Arriba As Boolean Dim Derecha As Boolean Const Incremento = 50 Private Sub Form_Load() Arriba = False Derecha = False End Sub Private Sub Timer1_Timer() If (((Shape1.Left + Shape1.Width) +...