frmEINGABE_QueryUnload
 
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, _
dwReserved As Long) As Long 
 
 
Private Const EWX_POWEROFF = 8
 
Private Sub Command1_Click () 
  Dim Retval As Long, MsgResult As Long 
 
   Retval = ExitWindowsEx( EWX_POWEROFF, 0&) 
  MSGBox "Der Computer wird heruntergefahren." 
End Sub