Author  

Language  

Operating Systems  

Option Explicit

'-------------------------------------------------------
' exiting from windows 95
'-------------------------------------------------------
Public Declare Function ExitWindowsEx Lib "user32.dll" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()
    Dim x As Integer

    x = ExitWindowsEx(0, 0)
End Sub