Кнопка бегает по окну и надо на нее нажать, ошибка в коде - VB

Формулировка задачи:

Начал изучать программирование с VB 6.0 Столкнулся с задачкой (мини игра) кнопка бегает по окну и надо на нее нажать. Код забил проверил раз 10 вроде все правильно но выдает ошибку, скажите плиз в чем ошибка и что надо исправить заранее спасибо)

Private Sub Command1_Click()   'В этом месте компилятор ругается
Command1.Enabled = False
Command1.Caption = "Готово!!"
Timer1.Enabled = False
 
End Sub
 
Private Sub Command3_Click()
End
End Sub
 
Private Sub Form_Load()
Randomize Timer
End Sub
 
Private Sub Timer1_Timer() и в этом
i = Int(9 * Rnd)
Command1.Visible = True
Command1.Top = 200 + 600 * (i \ 3)
Command1.Left = 200 + 900 * (i Mod 3)
 
End Sub

Решение задачи: «Кнопка бегает по окну и надо на нее нажать, ошибка в коде»

textual
                            Листинг программы 
                        
                            Private Sub Command1_Click(Index As Integer)