Dim contador As Integer
Dim modo As Integer '1 = derecha, 2 = izq
Dim modo2 As Integer

Private Sub Command1_Click()
If Timer1.Enabled = False Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If


End Sub

Private Sub Form_Load()
modo = 1
modo2 = 1
End Sub

Private Sub Timer1_Timer()
'GOTA 1

If g1.Top <= 6480 Then
g1.Top = g1.Top + 25
Else
g1.Top = 240
End If

If modo = 1 Then
    If g1.Left <= 720 Then
    g1.Left = g1.Left + 25
    Else
    modo = 2
    End If
Else
    If g1.Left >= 320 Then
    g1.Left = g1.Left - 25
    Else
    modo = 1
    End If
End If

'GOTA 2

If g2.Top <= 6480 Then
g2.Top = g2.Top + 25
Else
g2.Top = 240
End If

If modo2 = 1 Then
    If g2.Left <= 2480 Then
    g2.Left = g2.Left + 25
    Else
    modo2 = 2
    End If
Else
    If g2.Left >= 2000 Then
    g2.Left = g2.Left - 25
    Else
    modo2 = 1
    End If
End If


End Sub