AnnNameRectLeft example for Visual Basic

Private Sub ExampleAnnNameRect(hObject As OLE_HANDLE) 
Dim left, top, width, height As String
left = Str(LEAD1.AnnNameRectLeft(hObject)) 
top = Str(LEAD1.AnnNameRectTop(hObject)) 
width = Str(LEAD1.AnnNameRectWidth(hObject)) 
height = Str(LEAD1.AnnNameRectHeight(hObject)) 
MsgBox "Ann Name Rect: left[" + left + "], top[" + top + "], width[" + width + "], height[" + height + "]"
End Sub