home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 January / PCPRO_JAN96.ISO / code / q&a / listing3.txt < prev    next >
Encoding:
Text File  |  1995-11-01  |  330 b   |  14 lines
  1. Sub cmdRestart_Click ()
  2. Dim RetVal%
  3. Dim DgDef, DgDef2, Msg, Msg2, Response, Title
  4. Title = "My Windows Shell"
  5. Msg = "This will restart Windows. Are you sure?"
  6. DgDef = MB_YESNO + MB_ICONSTOP
  7. Response = MsgBox(Msg, DgDef, Title)
  8. If Response = IDYES Then
  9.     RetVal% = ExitWindows(66, 0)
  10. Else
  11.     Exit Sub
  12. End If
  13. End Sub
  14.