让标题栏文字置中

private Sub Form _ Load()
CenterC Me
oldsize = Me。宽度
末端接头

private Sub Form _ Resize()
If Me。Width = oldsize然后
Exit Sub
Else
CenterC Me
oldsize = Me。宽度
End If
End Sub

将以下内容放入模块中，稍后调用。

public Sub center c(frm As Form)
Dim SpcF As Integer
Dim clen As Integer
Dim oldc As String
Dim I As Integer

oldc = frmCaption
Do While Left(oldc，1)= Space(1)
DoEvents
oldc = Right(oldc，Len(oldc)-1)

Do While Right(oldc，1)= Space(1)
DoEvents
oldc = Left(oldc，Len(oldc)-1)
Loop

clen = Len(old)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[/brwidth/61.2244
SpcF = SpcF-clen

如果SpcF > 1，则
DoEvents
frm。caption = Space(Int(SpcF/2))+oldc
Else
frm。caption = oldc
End If
End Sub