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(vbKeyD) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX + 4)
   End If
   
   If GetAsyncKeyState(vbKeyA) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX - 4)
   End If
   
   If GetAsyncKeyState(vbKeyW) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX + 4)
   End If
   
   If GetAsyncKeyState(vbKeyS) < 0 Then
   WriteFloat (&HAFBFE4), (ForceX - 4)
   End If
   
   

End Sub