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