Visible property example

Sub Visible_Example()
' This example creates an circle and toggles its Visible property.
    Dim myCircle As AcadCircle
    Dim ctrPt(0 To 2) As Double
    ctrPt(0) = 5: ctrPt(1) = 3
    Set myCircle = ThisDrawing.ModelSpace.AddCircle(ctrPt, 5)
    ThisDrawing.Application.ZoomExtents
    Dim response As VbMsgBoxResult
    response = MsgBox("Do you want the new circle to be visible?", vbYesNoCancel + vbQuestion)
    Select Case response
    Case vbYes
       myCircle.Visible = True
    Case vbNo
       myCircle.Visible = False
    Case vbCancel
       Exit Sub
    End Select
    ThisDrawing.Regen True
End Sub