AnnNameBoundingRectLeft example for Visual Basic

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