Quit method example

This example demonstrates how to use the Quit method to close the drawing and exit IntelliCAD.

 

Private Sub QuitExample()

     Msg = "Really want to quit?"

Title = "Quit Method Example"

Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then     ' User chose Yes.

     Application.Quit

End If

End Sub