Public Sub CenterScreen(Fenster As Form)
  On Error GoTo Fehler
  '---
  ' Fenster auf Bildschirm zentrieren
  '---
 
  Fenster.Left = (Screen.Width - Fenster.Width) / 2
  Fenster.Top = (Screen.Height - Fenster.Height) / 2
 
  'Fehlermeldung überspringen
  GoTo Ende
 
Fehler:
  'Fehlermeldung aufrufen
  ErrHandler 
 
Ende:
End Sub