Private Sub forcemode_Timer()
  
  Dim Slot As Byte
  Dim ForceX As Double
  Dim ForceY As Double
  
 Slot = ReadByte(&HB1F048)
 ForceX = ReadFloat(&HAFBFE4)
 ForceY = ReadFloat(&HAFBFE8)
 
If GetAsyncKeyState(vbKeyEnd) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX * 4)
   WriteFloat (&HAFBFE8), (ForceY * 4)
   
End If

End Sub