Dim Punkt_X(40) as String
Dim Punkt_Y(40) as String
Dim g As Graphics = Graphics.FromImage(bit)
Dim curvePoints As Point()
Dim redPen As New Pen(Color.Red, 1)
 
Punkt_X(0) = "2"
Punkt_X(1) = "3"
Punkt_X(2) = "4"
'.
'.
Punkt_X(40) = "41"
 
Punkt_Y(0) = "2"
Punkt_Y(1) = "3"
Punkt_Y(2) = "4"
'.
'.
Punkt_Y(40) = "41"
 
For i = 0 To 40
                    curvePoints(i) = New Point(CInt(Punkt_X(i)), CInt(Punkt_Y( _
                      i))) '<------Fehler
 
                Next
 
g.DrawLines(redPen, curvePoints)