Visual Basic Timer

Dim vel, vdir, hdir As Double

Private Sub Command5_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub

Private Sub Command6_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
End Sub

Private Sub Form_Load()
vel = 10
vdir = 1
hdir = 1

Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
End Sub
Private Sub Command1_Click()
Label13.Visible = False
Label14.Visible = False
Frame1.Visible = True
Frame2.Visible = False
Frame3.Visible = False
Timer1.Interval = "1"
Timer1.Enabled = True
Timer2.Enabled = False
Timer3.Enabled = False
Label3.Visible = False
Label4.Visible = True
vel = 10
End Sub

Private Sub Command2_Click()
Label13.Visible = False
Label14.Visible = False
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
Timer2.Interval = "1"
Timer1.Enabled = False
Timer2.Enabled = True
Timer3.Enabled = False
vel = 10
End Sub

Private Sub Command3_Click()
Label13.Visible = False
Label14.Visible = False
Frame1.Visible = False
Frame2.Visible = False
Frame3.Visible = True
Label3.Visible = True
Timer3.Interval = "10"
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = True
vel = 10
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_Change()

End Sub

// gerak dari kiri kekanan (horisontal)
Private Sub Timer1_Timer()
Label1.Left = Label1.Left + (hdir * vel)
If Label1.Left >= Frame1.Width Then
hdir = -hdir
el = vel + 10
End If

If Label1.Left <= Frame1.Left Then
hdir = -hdir
vel = vel + 10
End If

kecepatan.Caption = vel

End Sub

//gerak dari atas ke bawah (vertikal)

Private Sub Timer2_Timer()

Label2.Top = Label2.Top + (vdir * vel)

If Label2.Top >= Frame2.Height Then
vdir = -vdir
vel = vel + 10
End If

If Label2.Top <= Frame2.Top Then
vdir = -vdir
vel = vel + 10

End If
kecepatan.Caption = vel

End Sub
//gerak random ( bola memantul)
Private Sub Timer3_Timer()
Label3.Left = Label3.Left + (hdir * vel)
Label3.Top = Label3.Top + (vdir * vel)
If Label3.Left + Label3.Width >= Frame3.Left + Frame3.Width Then
hdir = -hdir
vel = vel + 10
End If

If Label3.Top + Label3.Height >= Frame3.Top + Frame3.Height Then
vdir = -vdir
vel = vel + 10
End If

If Label3.Left <= Frame3.Left Then
hdir = -hdir
vel = vel + 10
End If

If Label3.Top <= Frame3.Top Then
vdir = -vdir
vel = vel + 10
End If

kecepatan.Caption = vel
End Sub