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


Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long





Function StartButton(AnAus As Boolean)


    Dim FindClass As Long, Handle As Long


    FindClass& = FindWindow("Shell_TrayWnd", "")


    Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)


    If AnAus Then x = 0 Else x = 1


    ShowWindow Handle&, x


End Function





Function Taskleiste(AnAus As Boolean)


    Dim Handle As Long


    Handle& = FindWindow("Shell_TrayWnd", vbNullString)


    If AnAus Then x = 0 Else x = 1


    ShowWindow Handle&, x


End Function





Function TaskIcons(AnAus As Boolean)


    Dim FindClass As Long, Handle As Long


    FindClass& = FindWindow("Shell_TrayWnd", "")


    Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)


    If AnAus Then x = 0 Else x = 1


    ShowWindow Handle&, x


End Function





Function DesktopIcons(AnAus As Boolean)


    Dim Handle


    Handle = FindWindow("progman", vbNullString)


    If AnAus Then x = 0 Else x = 1


    ShowWindow Handle, x


End Function





Private Sub Command1_Click()


    Call StartButton(Check1.Value = 0)


    Call Taskleiste(Check2.Value = 0)


    Call TaskIcons(Check3.Value = 0)


    Call DesktopIcons(Check4.Value = 0)


End Sub





Private Sub Form_Load()


    Check1.Caption = "Startbutton sichtbar"


    Check2.Caption = "Taskleiste sichtbar"


    Check3.Caption = "TaskIcons sichtbar"


    Check4.Caption = "DesktopIcons sichtbar"


End Sub