AnnSelectRect Example for Visual Basic

   LEAD1.AnnSelectRect LEAD1.AnnContainer, 10, 10, 200, 100
   LEAD1.AnnSelectPoint LEAD1.AnnContainer, 300, 300
   If LEAD1.AnnGetSelected (hPlgn) Then
      LEAD1.AnnRemove hPlgn
      LEAD1.AnnSetSelected hPlgn, False, False
   Else
      LEAD1.AnnInsert LEAD1.AnnContainer, hPlgn, False
   End If
   
   Caption = "Left:" & LEAD1.AnnSelectRectLeft (LEAD1.AnnContainer) _
   & ", Top:" & LEAD1.AnnSelectRectTop(LEAD1.AnnContainer) _
   & ", Width:" & LEAD1.AnnSelectRectWidth (LEAD1.AnnContainer) _
   & ", Height:" & LEAD1.AnnSelectRectHeight (LEAD1.AnnContainer)

   RasterAnn.AnnSelectRect RasterAnn.AnnContainer, 10, 10, 200, 100
   RasterAnn.AnnSelectPoint RasterAnn.AnnContainer, 300, 300
   If RasterAnn.AnnGetSelected(hPlgn) Then
      RasterAnn.AnnRemove hPlgn
      RasterAnn.AnnSetSelected hPlgn, False, False
   Else
      RasterAnn.AnnInsert RasterAnn.AnnContainer, hPlgn, False
   End If
   
   Caption = "Left:" & RasterAnn.AnnSelectRectLeft (RasterAnn.AnnContainer) _
   & ", Top:" & RasterAnn.AnnSelectRectTop (RasterAnn.AnnContainer) _
   & ", Width:" & RasterAnn.AnnSelectRectWidth (RasterAnn.AnnContainer) _
   & ", Height:" & RasterAnn.AnnSelectRectHeight (RasterAnn.AnnContainer)