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