2.grads graf tegner

koden er her....

Private Sub tegn_Click()

    Dim i As Integer
   
    Texta.Text = Val(Texta.Text)
    Textb.Text = Val(Textb.Text)
    Textc.Text = Val(Textc.Text)
   
    graf.Scale (-15, 15)-(15, -15)
   
    graf.Line (-15, 0)-(15, 0)
   
    For i = -14 To 14
        graf.Line (i, -0.25)-(i, 0.25)
    Next i
   
    graf.Line (0, -15)-(0, 15)
   
    For i = -14 To 14
        graf.Line (-0.25, i)-(0.25, i)
    Next i

    graf.ForeColor = vbRed
    trin = 0.05
   
    For X1 = -15 To 15 Step trin
        X2 = X1 + trin
        Y1 = Texta * (X1) ^ 2 + Textb * (X1) + Textc
        Y2 = Texta * (X2) ^ 2 + Textb * (X2) + Textc
        graf.Line (X1, Y1)-(X2, Y2)
    Next X1

End Sub

graf.Cls 'rydder alt

Den virkede ikk helt som jeg ville ha den til... men jeg fandt selv en anden løsning...