' Windows verstecken
    Private Declare Auto Sub SetWindowPos Lib "User32" (ByVal hWnd As Integer, _
      ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, _
      ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
    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 Function HideWindows() As Boolean
        ' Taskleiste verstecken
        Dim hwnd As Long = FindWindow("Shell_TrayWnd", vbNullString)
        SetWindowPos(hwnd, 0, 0, 0, 0, 0, 128)
 
        ' StartButton verstecken
        Dim hwndB As Long = FindWindowEx(hwnd, 0, "Button", vbNullString)
        ShowWindow(hwndB, 0)
 
        ' DesktopIcons verstecken
        hwnd = FindWindow(vbNullString, "Program Manager")
        SetWindowPos(hwnd, 0, 0, 0, 0, 0, 128)
 
        hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
        ShowWindow(hwnd, 0)
    End Function