[HELP] Superjump

That's my code for superjump.

Timer5.Interval = 5

But it isn't working, I fall underground but I don't jump high or something like that..

this would be correct:

Private Sub Timer5_Timer()
If GetKeyPress(vbKeyControl) Then
Dim apork_JSER As Long
Dim apork_JSER1 As Long
Dim apork_JSER2 As Single
Call apork_RAL("WarRock", &H129EF90, apork_JSER)
apork_JSER1 = apork_JSER + &H178
apork_JSER2 = Text1.Text
Call apork_WAF("WarRock", apork_JSER1, apork_JSER2)
End If
End Sub

in comparison with your old code (red is useless):

Private Sub Timer5_Timer()
If GetKeyPress(vbKeyControl) Then
Dim apork_JSER As Long
Dim apork_JSER1 As Long
Dim apork_JSER2 As Single
Call apork_RAL("WarRock", &H129EF90, apork_JSER)
apork_JSER1 = apork_JSER + &H178
Call apork_RAF("WarRock", apork_JSER1, apork_JSER2)
apork_JSER2 = apork_JSER2 + Text1.Text
Call apork_WAF("WarRock", apork_JSER1, apork_JSER2)
End If
End Sub

You just had some useless rubbish in your code which confused vb

feel free to post any other questions...