Dim MousePosition As POINTAPI
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
 
 
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
Private Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long
 
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
 
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As _
  Long) As Long
 
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect _
  As RECT) As Long
 
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
 
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
 
Private Declare Function ReleaseCapture Lib "user32" () As Long
 
 
Public i As Integer
 
Private Sub Mausbewegen()
 
'Die Maus Pos abfragen
 GetCursorPos MousePosition
    Text4.Text = MousePosition.X
    Text5.Text = MousePosition.Y
 
 
  ' X ACHSE !!!
 If xStick > (Slider4.Value / 4) Or xStick < (-Slider4.Value / 4) Then
 Text4.Text = MousePosition.X
 SetCursorPos Text4.Text + 0.2 * xStick * (Slider1.Value / 2), Text5.Text + 0.2 _
   * yStick * (Slider2.Value / 2)
 End If
 ' Y ACHSE !!!
 If yStick > (Slider3.Value / 4) Or yStick < (-Slider3.Value / 4) Then
Text5.Text = MousePosition.Y
 SetCursorPos Text4.Text + 0.2 * xStick * (Slider1.Value / 2), Text5.Text + 0.2 _
   * yStick * (Slider2.Value / 2)
 End If
 
End Sub