AnnFixed example for Visual Basic

Private Sub ExampleAnnFixed(hObject As Long)
  Dim bFixed As Boolean

  bFixed = RasterAnn.AnnFixed(hObject)

  bFixed = Not bFixed

  RasterAnn.EnableAdjust = True

  RasterAnn.AnnFixed(hObject) = bFixed

  If bFixed = True Then
    MsgBox "Fixed"
  Else
    MsgBox "Not Fixed"
  End If

End Sub