Kod:
Dim A, B, C As Integer
Private Sub Command1_Click()
For X = -500 To 500
Y = A * X * X + B * X + C
YY = ScaleHeight / 2 + -Y
XX = ScaleWidth / 2 + X * 100
DrawWidth = 4
PSet (XX, YY), QBColor(9)
Next X
End Sub
Private Sub Form_Load()
A = 10
B = 1
C = 51
End Subnot:a,b,c değerlerini kendiniz değiştirebilirsiniz
