glass walls

i had glass walls working beore they updated yesterday

im using vb6 btw

hers my code
Private Sub Timer1_Timer()
If Check1.value = Checked And GetKeyPress(vbKeyMButton) Then
Call WriteALong("WarRock", &HB372C8, 1)
Else
Call WriteALong("WarRock", &HB372C8, 1166127104)
End If
End Sub

i hav the new updated addresses and everythin but for sum reason glass walls turns on when i push my hotkey but it wont turn

if any1 can help me then thx
and + rep for ppl that help me