Cant freeze, please help

[t3lazy1]

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

[cricks]

add this to your command1

timer1.enabled = true