Draw Rectangle in different size : Rectangle « 2D Graphics « VB.Net Tutorial

1. VB.Net Tutorial
2. 2D Graphics
3. Rectangle

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class DrawRectangleDifferentSize
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

public class Form1
  Inherits System.Windows.Forms.Form

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim a As Graphics =  e.Graphics
        Dim mypen As Pen
        Dim myrect As Rectangle

        mypen = New Pen(System.Drawing.Color.Red, 6)

        a = Me.CreateGraphics
        a.Clear(Me.BackColor)

        a.DrawRectangle(mypen, 10, 10, 150, 150)
        a.DrawRectangle(mypen, 20, 20, 200, 200)
        a.DrawRectangle(mypen, 30, 30, 250, 250)
        a.DrawRectangle(mypen, 40, 40, 300, 300)
        myrect.X = 100
        myrect.Y = 40
        myrect.Width = 100
        myrect.Height = 100
        a.DrawRectangle(mypen, myrect)
        myrect.X = 120
        myrect.Y = 60
        myrect.Width = 100
        myrect.Height = 100
        a.DrawRectangle(mypen, myrect)
        a.Dispose()
        mypen.Dispose()

  End Sub

  Public Sub New()
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  End Sub

End Class

17.7.Rectangle
	17.7.1.	Create Rectangle From Size And Point
	17.7.2.	Create Rectangle From X, Y, Width, Height
	17.7.3.	Get Rectangle properties
	17.7.4.	Rectangle.Inflate
	17.7.5.	Rectangle.Union
	17.7.6.	Use RectangleF
	17.7.7.	Draw Rectangle
	17.7.8.	Draw Rectangle with rectangle X, Y, Width and Height
	17.7.9.	Fill Rectangle
	17.7.10.	Draw Rectangle in different size
	17.7.11.	Is inside a Rectangle
	17.7.12.	Rectangle.Intersect
	17.7.13.	Rectangle.Union and Intersect