'Api Declares
Public Declare Function GetSystemMetrics Lib "coredll" ( _
ByVal nIndex As Long) As Long
Public Declare Function SetForegroundWindow Lib "coredll" ( _
ByVal hwnd As Long) As Long
Public Declare Function SetWindowPos Lib "coredll" ( _
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
Public Declare Function ShowWindow Lib "coredll" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "coredll" Alias "FindWindowW" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Public Const SWP_SHOWWINDOW = &H40
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
Public Const HWND_TOPMOST = -1
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
'This does the job
Sub HideTaskbar()
hwnd = FindWindow("HHTaskBar", "")
lRet = ShowWindow(hwnd, SW_HIDE)
'--- Code to set the form on top.
lRet = SetForegroundWindow(Me.hwnd)
lRet = SetWindowPos(Me.hwnd, HWND_TOPMOST, 0, 0, _
GetSystemMetrics(SM_CXSCREEN) + 50, GetSystemMetrics(SM_CYSCREEN), _
SWP_SHOWWINDOW)
End Sub