a DLL user32
Exemplo de como ocultar a barra de tarefas via codigo:
função em um módulo ou na declaração do form:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
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 Const SWP_HIDEWINDOW = &H80
Private Const SWP_SHOWWINDOW = &H40
Private Sub Command1_Click()
Dim P_hWnd As Long
P_hWnd = FindWindow("Shell_traywnd", "")
SetWindowPos P_hWnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW
End Sub
chamar função, Exemplo:
Private Sub Command1_Click()
Dim P_hWnd As Long
P_hWnd = FindWindow("Shell_traywnd", "")
SetWindowPos P_hWnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW
End Sub
Té mais...
