' Hide Task
Bar
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
Declare Function FindWindow Lib "user32" Alias "FindWindowA”
_
(ByVal lpClassName As String, ByVal lpWindowName As
String) _
As Long
Const
SWP_HIDEWINDOW = &H80
Const
SWP_SHOWWINDOW = &H40