drawing the function graphic

[_MeRKeZ_]

Hi friends,

I want to ask a question about drawing a graphic

these are my code

Option Explicit
 
Const i3 As Integer = 1
Const i2 As Integer = 2
Const i1 As Integer = 1
Const xmin As Integer = -10
Const xmax As Integer = 10
Const ymin As Integer = 0
Const ymax As Integer = 121
Const N As Integer = 20
 
 
 
 
Private Sub Form_Load()
Dim i As Integer
Dim A As Double
 
 
    Scale (xmin, ymax)-(xmax, ymin)
    Line (xmin, 0)-(xmax, 0)
    Line (0, ymin)-(0, ymax)
    PSet (xmin, Pol(xmin))
    
        For i = xmin To xmax Step (xmax - xmin) / N
            A = Pol(i)
            Line -(i, A)
            Circle (i, A), 0.005
        Next
        
            
End Sub
 
Function Pol(x As Integer) As Double
 Dim y As Double
    y = i3 * x * x + i2 * x + i1
    Pol = y
    
End Function

This is the graphic which the programme drew




This is what I want





What should I do?


Edit: If you also say how I can make the program draw the graphic below, it will be awesome






I chose x1,y1 randomly to tell what I want to make

Thanks