Draw a Filled Rectangle PPC
To be called from the Paint event:
Dim uColor As System.Drawing.Color
uColor.Color=Color.Red
Public Sub DrawLineInt(ByVal e As PaintEventArgs)
'Draw Rectangle
Dim uPen As New Pen(uColor)
e.Graphics.DrawLine(uPen, 0, 0, control.Width, control.Height)
'Draw Filled Rectangle
Dim uBrush As New System.Drawing.SolidBrush(Color.Crimson)
e.Graphics.FillRectangle(uBrush, 0, 0, 10, 10)
End Sub
|