Dim x as Double
Dim y as Double
Dim px as Double, py as Double
 
' PictureBox auf Pixelmodus setzen
Picture1.Scalemode = 3
 
' Von X 0 bis 20 zeichnen ( in 1er Schritten), y geht dann also bis 400
For x = 0 To 20 Step 1
    ' Y-Koordinate ausrechnen
    y = x ^ 2
    'Zeichnen eine schwarzen Line von Punkt1(px/py) nach Punkt2(x,Y)
    ' Das "450-" brauchen wir weil y nach unten hin zunimmt
    Picture1.Line (px,450-py)-(x,450-y) , &H0
 
    ' Koordinaten der Punktes merken
    px = x
    py = y
 
Next x

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)