VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4080
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4560
   LinkTopic       =   "Form1"
   Picture         =   "Form1.frx":0000
   ScaleHeight     =   4080
   ScaleWidth      =   4560
   StartUpPosition =   2  '屏幕中心
   Begin VB.CheckBox Check1 
      Appearance      =   0  'Flat
      BackColor       =   &H00FFFFC0&
      Caption         =   "隱藏標(biāo)題欄"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   360
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Function TitleBar(ByVal bState As Boolean)
    Dim lStyle As Long
    Dim tR As RECT

    GetWindowRect Me.hWnd, tR
    '得到窗體的區(qū)域保存在tr中
    lStyle = GetWindowLong(Me.hWnd, GWL_STYLE)
    '得到窗體目前的風(fēng)格設(shè)置
    If (bState) Then
    '如果顯示標(biāo)題欄
        Me.Caption = Me.Tag
        '設(shè)置Caption屬性
        If Me.ControlBox Then
            lStyle = lStyle Or WS_SYSMENU
            '設(shè)置顯示系統(tǒng)菜單
        End If
        If Me.MaxButton Then
            lStyle = lStyle Or WS_MAXIMIZEBOX
            '設(shè)置顯示最大化按鈕
        End If
        If Me.MinButton Then
            lStyle = lStyle Or WS_MINIMIZEBOX
            '設(shè)置顯示最小化按鈕
        End If
        If Me.Caption <> "" Then
            lStyle = lStyle Or WS_CAPTION
            '顯示窗口的標(biāo)題
        End If
    Else
    '如果隱藏標(biāo)題欄
        Me.Tag = Me.Caption
        '將窗口標(biāo)題保存到窗口的tag屬性中
        Me.Caption = ""
        '將窗口標(biāo)題設(shè)置為空字符串
        lStyle = lStyle And Not WS_SYSMENU
        '隱藏系統(tǒng)菜單
        lStyle = lStyle And Not WS_MAXIMIZEBOX
        '隱藏最大化按鈕
        lStyle = lStyle And Not WS_MINIMIZEBOX
        '隱藏最小化按鈕
        lStyle = lStyle And Not WS_CAPTION
        '隱藏標(biāo)題
    End If
    SetWindowLong Me.hWnd, GWL_STYLE, lStyle
    '設(shè)置窗體風(fēng)格
    SetWindowPos Me.hWnd, 0, tR.Left, tR.Top, _
                    tR.Right - tR.Left, tR.Bottom - tR.Top, _
                    SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED
    '保證窗口具有相同的大小
End Function

Private Sub Check1_Click()
    If Check1.Value = 1 Then
        TitleBar False
    Else
        TitleBar True
    End If
End Sub

Private Sub Form_Load()

End Sub