Private Declare Function GetClientRect Lib "user32" _
   (Byval hwnd As Long, _
    lpRect As Rect) As Long
 
Private Declare Function ClipCursor Lib "user32" _
   (lpRect As Any) As Long
 
Private Declare Function ClientToScreen Lib "user32" _
   (Byval hwnd As Long, _
    lpPoint As POINTAPI) As Long
 
Private Type Rect
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
 
Private Type POINTAPI
   x As Long
   y As Long
End Type
 
Private Sub UserControl_Initialize()
   'Mauszeiger auf die Innenfläche des Controls fixieren
   Dim ctrlFlaeche As Rect
   Dim ctrlPoints As POINTAPI
   Dim RVal As Long
   With UserControl
      ctrlPoints.X = .Left
      ctrlPoints.Y = .Top
      RVal = ClientToScreen(.Containerhwnd, ctrlPoints)
      RVAl = GetClientRect(.hwnd, ctrlFlaeche)
   End With
   With ctrlFlaeche
      .Left = ctrlPoints.X
      .Top = ctrlPoints.Y
      .Bottom = .Bottom + .Top
      .Right = .Right + .Left
   End With
   RVal = ClipCursor(ctrlFlaeche)
End Sub
 
Private Sub UserControl_Terminate()
   'Mauszeiger wieder freigeben
   Dim ctrlFlaeche As Rect
   Dim RVal As Long
   With ctrlFlaeche
      .Top = 0
      .Left = 0
      .Bottom = Screen.Height / Screen.TwipsPerPixelY
      .Right = Screen.Width / Screen.TwipsPerPixelX
   End With
   RVal = ClipCursor(ctrlFlaeche)
End Sub