Below you'll find the source for the Visual Basic 6 function windows_force.
Attribute VB_Name = "modWindowsForce"
' This function is downloaded from:
' http://www.stefanthoolen.nl/archive/vb6-functions/
'
' You may freely distribute this file but please leave all comments, including this one, in it.
'
' @Author Stefan Thoolen <mail@stefanthoolen.nl>
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long
Private Const EWX_FORCE = 4
''
' Forcefully shuts down Windows
' @return Void
' @author Stefan Thoolen <mail@stefanthoolen.nl>
Public Sub windows_force()
ExitWindowsEx EWX_FORCE, 0
End Sub