DrawRectangle2

Previous  Next

---

Draws a rectangle on the image.

Syntax: DrawRectangle (pen As Pen, x As Int32, y As Int32, width As Int32, height As Int32)

Example:

'Add a Drawer object named drawer and a Pen object named pen1.

Sub Globals

End Sub

Sub App_Start

      Form1.Show

      drawer.New1("Form1",false)

      pen1.New1 (cBlue)

      drawer.DrawRectangle2(pen1.Value,50,30,100,200)

      drawer.Refresh(50,30,100,200) 

End Sub