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