DrawRectangle

Previous  Next

---

Draws a rectangle on the image.

Syntax: DrawRectangle (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 Globals

End Sub

Sub App_Start

      Form1.Show

      drawer.New1("Form1",false)

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

      pen1.New1 (cBlue)

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

      drawer.Refresh2(rect1.Value)  

End Sub