Public Sub Draw(ByRef Koordinatensystem As PictureBox)
        Dim gr As Graphics = Koordinatensystem.CreateGraphics
        Dim rect As New Rectangle(100, 100, 200, 200)
 
        gr.DrawEllipse(Pens.Black, rect)
    End Sub