Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
	Dim g As Graphics = e.Graphics
	' "g" wird nur erstrellt dass man bei grösseren Zeichnungen
	' nicht immer "e.Graphics" schreiben muss...
 
	'Zeichnen mit vorgegebenem schwarzem Stift (immer Breite = ein Punkt)
	g.DrawLine(Pens.Black, 10, 10, 100, 10)
 
	' Verwenden eines eigenen Zeichenstiftes:
	' Roter Stift mit einer Breite von drei Punkten
	Dim myPen As New Pen(Color.Red, 3)
	g.DrawLine(myPen, 10, 30, 100, 30)
 
End Sub

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)