'Y Achse
    For i = -3 To 3 Step 0.125
            canvas.Line (-0.025, i)-(0.025, i) '
               If (Abs(i) / 0.5) = Int(Abs(i) / 0.5) Then
                       canvas.Line (-0.05, i)-(0.05, i)
                       canvas.PSet (0.04, i + 0.05), canvas.BackColor
                       if i then
                            canvas.Print i * 8
                       end if
                Else
                       canvas.Line (-0.025, i)-(0.025, i)
                End If
     Next i