Private Sub Form_Initialize()
 
    canvas.Scale (-3, 3)-(3, -3)
 
    'Koordinatensystem zeichnen
    canvas.Line (-3, 0)-(3, 0)
    canvas.Line (0, 3)-(0, -3)
    'X Achse
     For i = -3 To 3 Step 0.125
 
            If (Abs(i) / 0.5) = Int(Abs(i) / 0.5) Then
                    canvas.Line (i, -0.05)-(i, 0.05)
                    canvas.PSet (i - 0.05, -0.05), canvas.BackColor
                    canvas.Print i * 8
                Else
                canvas.Line (i, -0.025)-(i, 0.025)
            End If
 
    Next i
 
    '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
                       canvas.Print i * 8
 
                Else
                       canvas.Line (-0.025, i)-(0.025, i)
                End If
     Next i
 
End Sub

LG,Robert