FillEllipse

Previous  Next

---

Draws a filled ellipse.

Syntax: FillEllipse (brush As SolidBrush, rect As Rectangle)

Example:

'Add a Drawer object named drawer, a Brush object named brush1 and a Rectangle object named rect.

Sub Globals

End Sub

Sub App_Start

      Form1.Show

      drawer.New1("Form1",false)

      brush1.New1(cRed)

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

      drawer.FillEllipse(brush1.Value,rect1.Value)

      drawer.Refresh2(rect1.Value)

End Sub