Построить в графическом окне график функции y=f(x) на заданном интервале

Option Explicit
Dim x!, y!, a!, b!, i!, h
Dim Ymax!, Ymin!, dmax!, dmin!
Const pi = 3.141593
 
Private Sub cmd1_Click()
    a = Val(txtA.Text)
    b = Val(txtB.Text)
    
    h = (b - a) / 100
    Ymax = -1E+16
    Ymin = -Ymax
 
    For x = a To b Step h
        If Ymax < f(x) Then Ymax = f(x)
        If Ymin > f(x) Then Ymin = f(x)
    Next
    
    dmax = Abs(Ymax / 50)
    dmin = Abs(Ymin / 50)
    Ymax = Ymax + dmax
    Ymin = Ymin - dmin
    
    pic.Scale (a, Ymax)-(b, Ymin)
    pic.DrawWidth = 3
    
    pic.Line (a, 0)-(b, 0)
    pic.Line (0, Ymin)-(0, Ymax)
    h = (b - a) / 10000
    pic.ForeColor = vbRed
    
    For x = a To b Step h
        y = f(x)
        pic.PSet (x, y)
    Next
    pic.ForeColor = vbBlue
    h = (b - a) / 10
    
    For x = a To b Step h
        pic.PSet (x, 0)
        pic.Print x
    Next
    h = (Ymax - Ymin) / 10
 
    For y = Ymin To Ymax Step h
        pic.PSet (0, y)
        pic.Print Int(y)
    Next
End Sub
 
Private Function f(x As Single) As Single
    f = 4 * Exp(2 * x + 1) * Sin(3 * pi * (x + 1.5))
End Function