DrawEllipse

Previous  Next

---

Draws an ellipse on the image.

Syntax: DrawEllipse (pen As Pen, rect As Rectangle)

Example:

'Add a Drawer object named drawer, a Pen object named pen1 and a Rectangle object named rect1.

Sub App_Start

      Form1.Show

      drawer.New1("Form1",false)

      rect1.New1(20,20,40,80)

      pen1.New1 (cBlue)

      drawer.DrawEllipse(pen1.Value,rect1.Value)

      drawer.Refresh2(rect1.Value)

End Sub