Dim y As Double
Dim x As Double
Dim T1 As Double
Dim T2 As Double
Dim T3 As Double
Dim T4 As Double
 
T1 = txtQT1.Text
T2 = txtQT2.Text
T3 = txtQT3.Text
T4 = txtQT4.Text
 
 
For x = -10 To 10 Step 0.01
y = ((x ^ T2) * T1)
y = y + (x * T3)
y = y + T4
picFKT.PSet (x, y)
Next x