Formu Görev Çubuğunda Gizlemek

Option Explicit

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 WS_EX_APPWINDOW = &H40000
Private Const GWL_EXSTYLE= (-20)

Private Sub Command1_Click()

Dim a, b As Long
a = GetWindowLong(hwnd , GWL_EXSTYLE)
b= b And (Not WS_EX_APPWINDOW)
Hide
SetWindowLong hwnd , GWL_EXSTYLE, b
Show

End Sub