'Zeichnen einer Linie mit einem Stift
		Dim oPen As New Pen(Color.Gray, 3)
		gr.DrawLine(oPen, 20, 20, 180, 70)

'Zeichnen einer Ellipse mit einem Stift
		Dim oRect As New Rectangle(150, 150, 110, 60)
		gr.DrawEllipse(oPen, oRect)
		gr.DrawRectangle(oPen, oRect)
		
		gr.DrawRectangle(Pens.Tomato, 20, 20, 40, 30)
