what is wrong.....scope

i can only zoom in with right mouse button but not out with the same right mouse button

Private Sub Timer1_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H90DC36, &H1)
End If
End Sub

Private Sub Timer2_Timer()
If GetAsyncKeyState(2) <> 0 Then
Call WriteALong("WarRock", &H90DC36, &H0)
End If
End Sub

no one???????

it has to be some kind of toggle but i dont know how to make it. ask some1 who's more experienced