Private Declare Function SystemShutDown Lib "shell32" Alias _
"#60" (ByVal ShutdownDialog As Long) As Long
 
Private Sub cmdShutDown_Click()
' Zeigt den Windows-Beenden-Dialog
' (Standby - Herunterfahren - Neu starten - im Dos-Modus neu starten)
 
    SystemShutDown 0
End Sub