Option Explicit

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 Declare Function FindWindow Lib "user32" Alias _
      "FindWindowA" (ByVal lpClassName As String, ByVal _
      lpWindowName As String) As Long

Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      Label1.ForeColor = &HC0&
      Label1.Caption = "Jetzt ist die Taskleiste ausgeblendet."
      Command1(1).Visible = False
      Ein_Aus SWP_HIDEWINDOW
    Case 2
      Label1.ForeColor = &H8000&
      Label1.Caption = _
          "Jetzt ist die Taskleiste wieder eingeblendet."
      Ein_Aus SWP_SHOWWINDOW
      Command1(1).Visible = True
    Case Else
      Unload Me
  End Select
End Sub

Private Sub Ein_Aus(Parameter As Long)
  Dim Result As Long

  Result = FindWindow("Shell_TrayWnd", "")
  SetWindowPos Result, 0, 0, 0, 0, 0, Parameter
End Sub