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)