AnnGetOptions example for Visual Basic

Dim msg As String
Dim uOptions As Long

uOptions = Main.ActiveForm.LEAD1.AnnGetOptions()
If (uOptions And OPTIONS_NEW_SIDE_HANDLES = OPTIONS_NEW_SIDE_HANDLES) Then
 uOptions = uOptions And Not OPTIONS_NEW_SIDE_HANDLES
 msg = "Draw a rectangular object and select it.  Note there are no side handles.  Run this example again to enable the side handles."
Else
 uOptions = uOptions Or OPTIONS_NEW_SIDE_HANDLES
 msg = "Draw a rectangular object and select it.  Note the side handles.  Run this example again to disable the side handles."
End If

Main.ActiveForm.LEAD1.AnnSetOptions uOptions
MsgBox msg