Построить график функции - VB

Dim xbeg As Integer, xend As Integer, x(100) As Integer, y(100) As Integer
Dim xg As Integer, yg As Integer, h As Integer, a As Double, b As Double
 
Private Sub Command1_Click()
xg = 0.7 * Me.Width
yg = 0.5 * Me.Height
Line (100, yg)-(xg, yg), vbRed
h = 0.01 * (xg - 100)
'коэффициенты масштабирования для х
a = (xend - xbeg) / (xg - 100)
b = xend - a * xg
x(1) = 100
'Вычерчивание графика
For i = 2 To 100
x(i) = 100 + (i - 1) * h
Line (x(i - 1), f(a * x(i - 1) + b))-(x(i), f(a * x(i) + b)), vbBlue
Next
End Sub
 
Private Sub Form_Load()
Me.WindowState = 2
xbeg = -2
xend = 2
End Sub
 
Function f(x)
'Функция
f = -700 * x * (x ^ 2 + x - 2) + yg
End Function