Const EWX_LOGOFF = 0Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, _ ByVal dwReserved As Long) As Long' close all applications and log off the current user' if Force is True, no message is sent to applicationsSub LogOffUser(Optional ByVal Force As Boolean) Dim flags As Long flags = EWX_LOGOFF If Force Then flags = flags Or EWX_FORCE ExitWindowsEx flags, -1End Sub