Option Explicit
 
Private Const EWX_LOGOFF As Long = 0
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Const EWX_POWEROFF As Long = 8
 
Private Const EWX_FORCE As Long = 4
Private Const EWX_FORCEIFHUNG As Long = 16

Private Sub cmdHumanShadowsAusschaltbutton_Click()
    Dim ShutdownManager As New clsShutdown
    Dim param As Long
 
param = param Or EWX_FORCEIFHUNG    
ShutdownManager.ShutDownNTbasedWindows param
 
End Sub