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.

Wrong code
It must be:
in command7 -> timer9.interval = 1 (no timer1)
in command8 -> timer9.interval = 0 (no timer1)

(Sorry for my English, I am Spanish)