Sub Test() Dim d As Document Set d = CreateDocument d.DrawingOriginX = 0 d.DrawingOriginY = 0 d.Unit = cdrMillimeter d.ActiveLayer.CreateEllipse2 0, 0, 1 d.Unit = cdrCentimeter d.ActiveLayer.CreateEllipse2 0, 0, 1 d.Unit = cdrInch d.ActiveLayer.CreateEllipse2 0, 0, 1End Sub