AnnNameBoundingRectLeft Example for Visual Basic

Private Sub ExampleAnnNameBoundingRect(hObject As Long)
   Dim left, top, width, height As String
   left = Str(RasterAnn.AnnNameBoundingRectLeft (hObject))
   top = Str(RasterAnn.AnnNameBoundingRectTop (hObject))
   width = Str(RasterAnn.AnnNameBoundingRectWidth (hObject))
   height = Str(RasterAnn.AnnNameBoundingRectHeight (hObject))
   MsgBox "Ann Name Bounding Rect: left[" + left + "], top[" + top + "], width[" + width + "], height[" + height + "]"
End Sub