Private Declare Function InitiateSystemShutdownEx Lib "advapi32.dll" _ 
Alias "InitiateSystemShutdownExA" (_ 
ByVal lpMachineName As String, ByVal lpMessage As String, _ 
ByVal dwTimeout As Integer, ByVal bForceAppsClosed As Integer, _ 
ByVal bRebootAfterShutdown As Integer, _ 
ByVal dwReason As String) As Integer
 
Public Sub ShutDownComputer(ByVal sName As String)
 
        strComputername = "\\" & sName
 
        InitiateSystemShutdownEx(strComputername, Me.Message, Me.TimeOut, _
            boolClosePrograms, 0, "Beenden")
 
    End Sub

 
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, _
  ByVal dwReserved As Long) As Long