Option Explicit

Dim TitelText As String

Private Function CenterTitle()
  Dim intCapt  As Integer
  Dim intSpace As Integer
  Dim cClipBox As Long

  cClipBox = 1750

  With Label1
    .AutoSize = True
    .FontName = "MS Sans Serif"
    .FontBold = True
    .FontSize = 8
    .Caption = " "
    intSpace = .Width - 15
    .Caption = TitelText
    intCapt = .Width - 15
    .Visible = False
  End With

  Select Case BorderStyle
    Case 1, 3
       cClipBox = cClipBox - 800
    Case Else
  End Select

  If ControlBox = False Then cClipBox = 450

  If Me.Width < intCapt + cClipBox Then
    Me.Width = (intCapt + cClipBox)
  End If

  Me.Caption = String$((Me.Width - (intCapt + cClipBox)) / _
        (2 * intSpace), " ") & TitelText
End Function

Private Sub Form_Load()
  TitelText = "Zentrierte Titelzeile"
End Sub

Private Sub Form_Resize()
  If WindowState <> vbMinimized Then
    CenterTitle
  Else
    Me.Caption = Trim$(Me.Caption)
  End If
End Sub