Public Sub Draw(ByRef Koordinatensystem As Graphics)
        Dim rect As New Rectangle(100, 100, 200, 200)
        Koordinatensystem.DrawEllipse(Pens.Black, rect)
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawLine(Pens.Black, 1, 1, 1, PictureBox1.Height - 1)
        e.Graphics.DrawLine(Pens.Pink, 1, PictureBox1.Height - 1, _
          PictureBox1.Width - 1, PictureBox1.Height - 1)
        Draw(e.Graphics)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus