Shell("C:\windows\system32\shutdown.exe /s", AppWinStyle.NormalFocus)

 Sub ShutDown()
        Dim ms As System.Management.ManagementScope = New _
          System.Management.ManagementScope("\\LocalHost\root\cimv2")
        ms.Options.EnablePrivileges = True
        ' Verwende diesen Eigenschaften wenn es Probleme mit den Rechten gibt
        'ms.Options.Password = ""
        'ms.Options.Username = ""
        Dim oq As System.Management.ObjectQuery = New _
          System.Management.ObjectQuery("SELECT * FROM Win32_OperatingSystem")
        Dim query1 As ManagementObjectSearcher = New ManagementObjectSearcher( _
        ms, oq)
        Dim queryCollection1 As ManagementObjectCollection = query1.Get()
        For Each mo As ManagementObject In queryCollection1
            Dim ss As String() = {"2", "0"} ' Reboot
            'Dim ss As String() = {"2", "2"} ' Logoff
            'Dim ss As String() = {"0", "0"} ' Shutdown
            mo.InvokeMethod("Win32Shutdown", ss)
        Next
    End Sub