Private Sub Form_Load()
    fraTurnierdaten.Left = (mdifrmTurnierPlaner.ScaleWidth - _
      fraTurnierdaten.Width) / 2
    fraTurnierdaten.Top = (mdifrmTurnierPlaner.ScaleHeight - _
    fraTurnierdaten.Height) / 2
End Sub

Private Sub Form_Load()
   Frame_Center (frmTurnierDaten.Name)
End Sub

Public Function Frame_Center(ByVal Name As String) As Boolean
Dim sLeftPosition As String
Dim sTopPosition As String
    sLeftPosition = Name & ".Left = (mdifrmTurnierPlaner.ScaleWidth - " & Name _
      & ".Width) / 2"
    sTopPosition = Name & ". Top= (mdifrmTurnierPlaner.ScaleHeight - " & Name & _
    ".Height) / 2"
    CallByName Me, sLeftPosition, VbMethod
    CallByName Me, sTopPosition, VbMethod
End Function