'------------------------------
'Konstanten & API-Deklarationen
'------------------------------
Const SW_HIDE = 0
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) _
As Long
'------------------------------
'Variablen
'------------------------------
Dim taskBarHandle As Long
Dim tbrStatus As Boolean
'------------------------------
'Implementierung
'------------------------------
Private Sub Form_Load()
'Initialisierung der Handles
taskBarHandle = FindWindow("Shell_TrayWnd", vbNullString)
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowWindow taskBarHandle, SW_HIDE
End Sub