AnnIsFixedRect example for Visual Basic

Private Sub ExampleAnnIsFixedInRect(hObject As Long, WndLeft As Long, WndTop As Long, WndRight As Long, WndBottom As Long)
   Dim bFixedInRect As Boolean

   RasterAnn.Flags = ANN_FLAG_RECURSE
   bFixedInRect = RasterAnn.AnnIsFixedRect(hObject, WndLeft, WndTop, WndRight, WndBottom)

   If bFixedInRect = True Then
      MsgBox "There are Fixed annotations visible."
   Else
      MsgBox "There are No Fixed annotations visible."
   End If

End Sub