ســـؤال بالرسم ~

Dim g As System.Drawing.Graphics = Me.CreateGraphics

Dim pp As New Pen(Color.Green, 2)
Dim p As New Pen(Color.Red, 2)
g.DrawEllipse(pp, 10, 10, 70, 50)
g.DrawEllipse(pp, 10, 150, 70, 50)
g.DrawLine(p, 10, 37, 10, 173)
g.DrawLine(p, 80, 37, 80, 173)

Dim g As System.Drawing.Graphics = Me.CreateGraphics

Dim pp As New Pen(Color.Blue, 5)

g.DrawRectangle(pp, 10, 10, 200, 200)
g.DrawLine(pp, 10, 10, 40, 60)
g.DrawLine(pp, 210, 10, 240, 60)
g.DrawLine(pp, 10, 210, 40, 260)
g.DrawLine(pp, 210, 210, 240, 260)
g.DrawRectangle(pp, 40, 60, 200, 200)