Listed below is a subroutine that will quit windows in three different ways if needed. Passing 1 to it will reboot the computer, passing 2 will restart Windows, and passing 3 will exit Windows and return to DOS.

Declare

Declare Function ExitWindows Lib "User" (ByVal RestartCode As Long,ByVal DOSReturnCode As Integer) As Integer

Code

Sub ExitWin (ByVal nExitOption As Integer) Dim n As Integer

n = MsgBox("Do you really want to exit Windows?", 36, "Exiting")

If n = 7 Then Exit Sub 'User chose NO

Select Case nExitOption
Case 1
n = ExitWindows(67, 0) 'reboot the computer
Case 2
n = ExitWindows(66, 0) 'restart Windows
Case 3
n = ExitWindows(0, 0) 'exit Windows
End Select

End Sub