Private Sub Command1_Click()
'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)
 
    'X Achse
     For i = -2 To 2 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
                Else
                canvas.Line (i, -0.025)-(i, 0.025)
            End If
 
    Next i
 
    'Y Achse
    For i = -2 To 2 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
                Else
                canvas.Line (-0.025, i)-(0.025, i)
            End If
     Next i        
 
        'Funktion plotten
    For X = -2 To 2 Step 0.001
 
       ' Dies ist die Funktion
 
       'Farb-management
 Select Case Combo1.Text
 
    Case "Rot":
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbRed
 
    Case "Grün":
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbGreen
 
    Case "Blau"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbBlue
 
    Case "Gelb"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbYellow
 
    Case "Rosa"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbMagenta
 
    Case "Schwarz"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbBlack
 
    Case "Zyanblau"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbCyan
 
    Case "Weiß"
              If Not IsNumeric(Text9.Text) Then MsgBox "Bitte zunächst" & _
                "numerische Werte für m und b angeben !": Exit Sub
              Y = (Text9.Text) * X ^ 3 + (0.125 * Text11.Text)
              canvas.PSet (X, Y), vbWhite
 
 End Select
 
    Next X

LG,Robert