Private Sub Command1_Click()

A = Val(Text1)

B = Val(Text3)

c = Val(Text2)

Picture1.Scale (-50, 50)-(50, -50)

For X1 = -50 To 50 Step 0.01

Y1 = A * X1 ^ 3 + c

Picture1.PSet (X1, Y1)

For X2 = -50 To 50 Step 0.01

Y2 = B * X2

Picture1.PSet (X2, Y2)

Next X2

Next X1

Picture1.Line (-50, 0)-(50, 0)

For i = -50 To 50 Step 10

Picture1.PSet (i, 0)

Picture1.Print i

Next i

Picture1.Line (0, 50)-(0, -50)

For i = -50 To 50 Step 10

Picture1.PSet (0, i)

Picture1.Print i

Next i

End Sub

Private Sub Command2_Click()

Picture1.Cls

Text1 = ""

Text2 = ""

Text3 = ""

End Sub