Escondendo a barra de tarefas do Windows


Quer esconder a barra de tarefa do windows ? Essa é bem simples... vejamos !

1-) Insira um módulo no seu projeto com o seguinte código

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal _ lpWindowName As String) As Long


Public 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 

2-) Na seção General Declarations do form do projeto insira o código abaixo

Option Explicit
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

3-) Para testar insira dois botões de comando no formulário - Command1 e Command2

Private Sub Command1_Click()
    SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub


Private Sub Command2_Click()
    SetWindowPos FindWindow("Shell_traywnd", ""), 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub

Ao clicar no botão command1 você esconde a barra de tarefas. Já clicando no botão command2 a barra de tarefas reaparece...

Por hoje é só. Bom proveito...;-)