AnnSetOptions Example for Visual Basic

Private Sub ExampleAnnSetOptions_Click()
Dim lOptions As Long
Dim strMsg As String

lOptions = RasterAnn.AnnGetOptions()

If ((lOptions And ANN_OPTIONS_NEW_SIDE_HANDLES)) Then
   lOptions = lOptions And Not ANN_OPTIONS_NEW_SIDE_HANDLES
   strMsg = "Draw a rectangular object and select it.  Note there are no side handles.  Run this example again to enable the side handles."
Else
   lOptions = lOptions Or ANN_OPTIONS_NEW_SIDE_HANDLES
   strMsg = "Draw a rectangular object and select it.  Note the side handles.  Run this example again to disable the side handles."
End If

RasterAnn.AnnSetOptions(lOptions)
MsgBox strMsg
End Sub