Mostrar y ocultar la barra de tareas de Windows

Private Declare Function FindWindow Lib “user32″ Alias “FindWindowA” (ByVal lpexecuta As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib “user32″ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOWNORMAL = 1

‘La siguiente función esconde la barra de tareas…
Public Sub OcultarBarraWin()
Dim aviso As Long
Dim janela As Long
Dim executa As String

executa = Space(256)
executa = “Shell_TrayWnd”
janela = FindWindow(executa, vbNullString)

aviso = ShowWindow(janela, SW_HIDE) ‘Esconde la barra
End Sub

‘La siguiente función muestra la barra de tareas de Windows…
Public Sub MostrarBarraWin()
Dim aviso As Long
Dim janela As Long
Dim executa As String

executa = Space(256)
executa = “Shell_TrayWnd”
janela = FindWindow(executa, vbNullString)

aviso = ShowWindow(janela, SW_SHOWNORMAL) ‘Muestra a barra

End Sub

Autor: HELIO CANDIDO