显示隐藏Excel VBA窗体标题栏

Private Function TitleBar(ByVal bState As Boolean) Dim lStyle As Long

Dim tR As excelba.RECT GetWindowRect hMain, tR

lStyle = GetWindowLong(hMain, GWL_STYLE) If (bState) Then Me.Caption = tStr

lStyle = lStyle Or WS_SYSMENU lStyle = lStyle Or WS_CAPTION Else

Me.Caption = \"\"

lStyle = lStyle And Not WS_SYSMENU lStyle = lStyle And Not WS_CAPTION End If

SetWindowLong hMain, GWL_STYLE, lStyle

SetWindowPos hMain, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, SWP_NOREPOSITIONEnd Function

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then TitleBar True

CheckBox1.Caption = \"单击隐藏标题\" Else

TitleBar False

CheckBox1.Caption = \"单击显示标题\" End IfEnd Sub

Private Sub UserForm_Initialize()

hMain = FindWindow(vbNullString, Me.Caption) tStr = Me.Caption

CheckBox1.Caption = \"单击隐藏标题\"End Sub

ITION Or SWP_NOZORDER Or SWP_FRAMECHANGED