Private Sub tele_Timer()
    Dim slot As Byte
    Dim MouseY As Double
    Dim MouseX As Double
    Dim MouseScreenX As Double
    Dim MouseScreenY As Double

        slot = ReadByte(&HB1F048)
        MouseX = ReadFloat(&HB9C584)
        MouseY = ReadFloat(&HB9C588)
        MouseScreenX = ReadFloat(&H6E30DC)
        MouseScreenY = ReadFloat(&H6E30E0)
        
        If GetAsyncKeyState(vbKeyHome) < 0 Then
            WriteFloat (&HAFAE64), (MouseScreenX + (MouseX - 320))
            WriteFloat (&HAFAE68), (MouseScreenY + (MouseX - 240))
        End If
        
        
End Sub