Программисты, скажите, где у меня ошибка в коде 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

Идея понятна - разрешаем/запрещаем движение картинки.
Сделай так:

Тут однозначно ошибка в ДНК!
Если не былоб такой ошибки, то хотяб написали в чем заключается ошибка. в коде, а не тупо вывалиб листинг и ищите ошибку. Типа оно нам надо!