'Declaration Public Sub SetRectangle( _
ByVal x0X координата левого верхнего угла прямоугольника.As Double, _
ByVal y0Левая верхняя координата Y прямоугольника.As Double, _
ByVal x1X координата справа внизу прямоугольника.As Double, _
ByVal y1Правая нижняя координата Y прямоугольника.As Double _
)
Parameters
- x0
 - X координата левого верхнего угла прямоугольника.
 - y0
 - Левая верхняя координата Y прямоугольника.
 - x1
 - X координата справа внизу прямоугольника.
 - y1
 - Правая нижняя координата Y прямоугольника.