what is wrong: no spread

what is wrong with this no spread code??

Private Sub Timer9_Timer()
Call WriteALong("WarRock", &H90DC70, 1)
End Sub

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

Private Sub Command8_Click()
Timer1.Interval = 0
End Sub

Value wrong do value:0 in it.