Dim swim As Long
Dim swim1 As Long
Dim swim3 As Single
If GetKeyPress(vbKeyNumpad8) Then
Call Lesen_Lang1("WarRock", &Hadress, swim)
swim1 = swim + &H54
Call Schreiben_Lang1("WarRock", swim1, &H4)
End If
If GetKeyPress(vbKeyNumpad9) Then
Call Lesen_Lang1("WarRock", &Hadress, swim)
swim1 = swim + &H54
Call Schreiben_Lang1("WarRock", swim1, &H0)
End If
numpad 8 = swim on nummpad 9 = swim off
don`t forgett to set interval to 100