Программисты, скажите, где у меня ошибка в коде Visual Basic?

Private Sub Command1_Click()
Select Case Timer1.Interval
Case Timer1.Interval = 1
Timer1.Interval = 0
Case Else
Timer1.Interval = 1
End Select
Select Case Command1.Caption
Case Command1.Caption = "СТОП"
Command1.Caption = "СТАРТ"
Case Else
Command1.Caption = "СТОП"
End Select
End Sub
Private Sub Timer1_Timer()
Dvig
End Sub
Private Sub Dvig()
Image1.Left = Image1.Left - 20
End Sub

Авторизуйте меня, если я вас добавлю в агент