Свойство возвразает координату X правого верхнего угла прямоугольника.
Visual Basic:
Property Xmax() As Double
read only
Sub ZRectangle_Xmax 'Создаем объем ZRectangle Set rect = CreateObject("ZuluLib.ZRectangle") 'присваеваем ему координаты вершин rect.SetRectangle 30, 31, 32, 33 'Выводим координату X правого верхнего угла MsgBox(rect.Xmax) End Sub