Private Sub Command1_Click()
a = InputBox("input a")
b = InputBox("input b")
c = InputBox("input c")
Form1.ScaleLeft = -200
Form1.ScaleTop = -200
Form1.ScaleHeight = 400
Form1.ScaleWidth = 400
x = -200
y = a * x * x + b * x + c
For x = -200 To 200
y = a * x * x + b * x + c
Form1.Line -(x, y)
Next xEnd SubPrivate Sub Command2_Click()
Form1.ClsEnd Sub