' Windows verstecken
    <DllImport("user32.dll", SetLastError:=True)> _
    Private Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal _
    hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx _
    As Integer, ByVal cy As Integer, ByVal uFlags As UInt32) As Boolean
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, ByVal _
    childAfter As IntPtr, ByVal lclassName As String, ByVal windowTitle As _
    String) As IntPtr
    End Function
 
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As _
    Int32) As Boolean
    End Function
 
    Private Function HideWindows() As Boolean
        ' Taskleiste verstecken
        Dim hwnd As IntPtr = FindWindow("Shell_TrayWnd", vbNullString)
        SetWindowPos(hwnd, 0, 0, 0, 0, 0, 128)
 
        ' StartButton verstecken
        Dim hwndB As IntPtr = 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