让标题栏文字置中

文章正文：
Private Sub Form_Load()
    CenterC Me
    oldsize = Me.Width
End Sub

Private Sub Form_Resize()
    If Me.Width = oldsize Then
        Exit Sub
    Else
        CenterC Me
        oldsize = Me.Width
    End If
End Sub

以下放入模块,以后用时调用即可.

Public Sub CenterC(frm As Form)
    Dim SpcF As Integer
    Dim clen As Integer
    Dim oldc As String
    Dim I As Integer
   
    oldc = frm.Caption
    Do While Left(oldc, 1) = Space(1)
        DoEvents
        oldc = Right(oldc, Len(oldc) - 1)
    Loop
   
    Do While Right(oldc, 1) = Space(1)
        DoEvents
        oldc = Left(oldc, Len(oldc) - 1)
    Loop
   
    clen = Len(oldc)
   
    If InStr(oldc, "!") <> 0 Then
        If InStr(oldc, "") <> 0 Then
            clen = clen * 1.5
        Else
            clen = clen * 1.4
        End If
    Else
        If InStr(oldc, "") <> 0 Then
            clen = clen * 1.4
        Else
            clen = clen * 1.3
        End If
    End If
   
    SpcF = frm.Width / 61.2244
    SpcF = SpcF - clen
   
    If SpcF > 1 Then
        DoEvents
        frm.Caption = Space(Int(SpcF / 2)) + oldc
    Else
        frm.Caption = oldc
    End If
End Sub