Quit method example

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

 

Sub Quit_Example()

    Dim msg As String, title As String

    Dim Responce As VbMsgBoxResult

    msg = "Really want to quit?"

    title = "Quit Method Example"

    Responce = MsgBox(msg, vbYesNo, title)

    If Responce = vbYes Then

        ThisDrawing.Application.Quit

    End If

End Sub

 

Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved.