AnnGetContainer Example for Visual Basic
Dim hPin As Long, h1 As Long, h2 As Long, hCont As Long
RasterAnn.AnnCreate ANN_OBJECT_CONTAINER, True, False
hCont = RasterAnn.AnnObject
If hCont <> 0 Then
hPin = RasterAnn.AnnCreateItem (hCont, ANN_OBJECT_PUSHPIN, False)
h1 = RasterAnn.AnnGetContainer (hCont)
h2 = RasterAnn.AnnGetTopContainer (hPin)
If h1 = h2 And h1 = RasterAnn.AnnContainer Then
MsgBox "root container is same as that of RasterAnn"
End If
End If