' Form zentrieren
Sub CenterForm(frm As Form)
  frm.Top = Screen.Height / 2 - frm.Height / 2
  frm.Left = Screen.Width / 2 - frm.Width / 2
End Sub
 
' Typendeclaretionen für CenterCursorroutine
Type Rect
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) _
  As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As _
Rect) As Long
 
Sub CenterCursor(WinHdl As Long)
  Dim CtlSize As Rect
 
  Call GetWindowRect(WinHdl, CtlSize)
  Call SetCursorPos(CtlSize.Left + (CtlSize.Right - CtlSize.Left) / 2, _
    CtlSize.Top + (CtlSize.Bottom - CtlSize.Top) / 2)
End Sub