AnnGetVisible example for Visual Basic

'This example toggles the visible state of the annotation container.
Private Sub GetVisible_Click()
Dim bVisible As Boolean
RasterAnn.AnnGetVisible RasterAnn.AnnContainer
bVisible = RasterAnn.AnnVisible
RasterAnn.AnnSetVisible RasterAnn.AnnContainer, Not bVisible, ANN_FLAG_RECURSE, ""
RasterAnn.AnnGetVisible RasterAnn.AnnContainer
bVisible= RasterAnn.AnnVisible
MsgBox "AnnGetVisible: " & bVisible
End Sub