Ascunde TASKBAR [Visual Basic Code]

[vladiii]

In modul scrieti asta (aici declaram functiile API pe care le vom folosi in program):

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

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Acum in interiorul programului scriem:

Option Explicit
Dim a As Long

Private Sub cmdArata_Click()
ShowWindow a, 1
'arata taskbar
End Sub

Private Sub cmdAscunde_Click()
ShowWindow a, 0
'ascunde taskbar
cmdArata.Enabled = True
End Sub

Private Sub cmdIesire_Click()
Unload Me
End Sub

Private Sub Form_Load()
a = FindWindow("Shell_TrayWnd", vbNullString)
'gaseste handleul taskbarului
cmdArata.Enabled = False
End Sub

Enjoy It !