Private Sub teletomouse_Timer()
    Dim slot As Byte
    Dim MouseY As Double
    Dim MouseX As Double
  
    
    slot = ReadByte(&HB1F048)
    MouseX = Read2Byte(&HB9C584)
    MouseY = Read2Byte(&HB9C588)
    
  
         If GetAsyncKeyState(vbKeyHome) < 0 Then
         WriteFloat (&HAFAE64 + (slot - 1) * 8), (MouseX)
         WriteFloat (&HAFAE68 + (slot - 1) * 8), (MouseY)
         End If
End Sub