Private Sub Form_Load()
    'auf der Form eine Picturebox anlegen, die Canvas heisst
    Dim x As Double
    Dim y As Double
    Dim i As Double
    ' Größe festlegen
    canvas.Height = 6500
    canvas.Width = 8320
    canvas.AutoRedraw = True
 
    'Bei Scale gibt der erste Klammerteil die linke obere Ecke des 
    ' Koordinatensystems
    'und der zweite Teil die RECHTE untere Ecke an
    canvas.Scale (-2, 2)-(2, -2)
    'Koordinatensystem zeichnen
    canvas.Line (-2, 0)-(2, 0)
    canvas.Line (0, 2)-(0, -2)
    'Tics zeichnen
        'X Achse
        For i = -2 To 2 Step 0.5 'Step 0.5 gibt die Schrittweite an
            canvas.Line (i, -0.1)-(i, 0.1) '0.1 ist die Länge der Tics
        Next i
        'Y Achse
        For i = -2 To 2 Step 0.5 'Step 0.5 gibt die Schrittweite an
            canvas.Line (-0.1, i)-(0.1, i) '0.1 ist die Länge der Tics
        Next i
 
    'Funktion plotten
    For x = -2 To 2 Step 0.001
        ' Dies ist die Funktion
        y = 0.5 * x + 1
        canvas.PSet (x, y), 0
    Next x
End Sub