Private Sub Form_Resize()
   Dim i As Long
   Dim j As Long
   Dim strCaptionTemp As String
 
   strCaptionTemp = Trim(Me.Caption)
   j = TextWidth(" ")
   i = (Me.Width / 2 - TextWidth(strCaptionTemp) / 2) - 500
   Me.Caption = Space$(i / j) & strCaptionTemp
 
End Sub