hotkey

[supremer13]

i have add a hotkey for superjump but it says: sub or function not defined.
here's the code of the butoon (chanched strings)

Private Sub Command9_Click()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call jessyb("WarRock", &H136A0F0, SJ)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call jessyc("WarRock", SJ1, SJ2)
End If
End Sub

thanks for help