Menampilkan Dan Menyembunyikan TitleBar Form

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	1	Caption	Hide	Command1

Masukkan souce ini ke dalam Form Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Const GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 Private Const WS_MAXIMIZEBOX = &H10000 Private Const WS_MINIMIZEBOX = &H20000 Private Const WS_SYSMENU = &H80000 Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Enum ESetWindowPosStyles SWP_SHOWWINDOW = &H40 SWP_HIDEWINDOW = &H80 SWP_FRAMECHANGED = &H20 SWP_NOACTIVATE = &H10 SWP_NOCOPYBITS = &H100 SWP_NOMOVE = &H2 SWP_NOOWNERZORDER = &H200 SWP_NOREDRAW = &H8 SWP_NOREPOSITION = SWP_NOOWNERZORDER SWP_NOSIZE = &H1 SWP_NOZORDER = &H4 SWP_DRAWFRAME = SWP_FRAMECHANGED HWND_NOTOPMOST = -2 End Enum Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Function ShowTitleBar(ByVal bState As Boolean) Dim lStyle As Long Dim tR As RECT GetWindowRect Me.hwnd, tR lStyle = GetWindowLong(Me.hwnd, GWL_STYLE) If (bState) Then Me.Caption = Me.Tag If Me.ControlBox Then lStyle = lStyle Or WS_SYSMENU End If If Me.MaxButton Then lStyle = lStyle Or WS_MAXIMIZEBOX End If If Me.MinButton Then lStyle = lStyle Or WS_MINIMIZEBOX End If If Me.Caption <> "" Then lStyle = lStyle Or WS_CAPTION End If Else Me.Tag = Me.Caption lStyle = lStyle And Not WS_SYSMENU lStyle = lStyle And Not WS_MAXIMIZEBOX lStyle = lStyle And Not WS_MINIMIZEBOX lStyle = lStyle And Not WS_CAPTION End If SetWindowLong Me.hwnd, GWL_STYLE, lStyle SetWindowPos Me.hwnd, 0, tR.Left, tR.Top, tR.Right - tR.Left, tR.Bottom - tR.Top, _ SWP_NOREPOSITION Or SWP_NOZORDER Or SWP_FRAMECHANGED Me.Refresh End Function Private Sub Command1_Click() If Command1.Caption = "Hide" Then ShowTitleBar False Command1.Caption = "Show" Else ShowTitleBar True Command1.Caption = "Hide" End If End Sub