Cant freeze, please help

okay here is my code... Could someone tell me what's wrong please?


Private Sub Command6_Click()
Timer1.Interval = 1
End Sub


Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H943A55, 0)
End Sub

add this to your command1

timer1.enabled = true