Есть программа, нужно увеличить масштаб в графике - VB

Формулировка задачи:

Нужно увеличить масштаб, т.е. как бы растянуть график. (чтоб начало отсчета начиналось не с 0 до 1.2 а с 0.3 до 1.2 например) Для того чтобы лучше увидеть реализацию метода (метод секущих(хорд) решения нелинейных уравнений). Рисунок и код прилагаю, если нужна программа могу скинуть тоже. a,b - пределы e-точность. Помогите пожалуйста!

Private Sub Command1_Click()
a = 0.4
b = 1
e = 0.001
If b > 1 Then Text4.Text = "нет"
Picture1.Scale (-0.05, Fn(b))-(b + 0.3, -1)
Picture1.Line (-0.1, 0)-(b + 0.3, 0)
Picture1.Line (0, Fn(b))-(0, -1)
    For x = a To b Step 0.001
    y = Fn(x)
    Picture1.PSet (x, y), vbBlue
    Next x
Picture1.Circle (Koren(), 0), 0.005, vbRed
Picture1.Print Format(Koren(), "0.00")
For x = 0 To 1.3 Step 0.1
Picture1.Line (x, 0.02)-(x, -0.02), vbRed
Picture1.Print x
Next
For x = -1 To Fn(b) Step 0.2
Picture1.Line (-0.01, x)-(0.01, x), vbRed
s1 = Format(x, "0.0")
Picture1.Print s1
Next
Picture1.Line (a, Fn(a))-(a, 0), vbBlack
Picture1.Line (b, Fn(b))-(b, 0), vbBlack
 
For i = 1 To p - 1
Picture1.Line (b, Fn(b))-(Am(i), Fn(Am(i))), vbGreen
Picture1.Line (Am(i), 0)-(Am(i), Fn(Am(i))), vbGreen
Next i
 
End Sub

Решение задачи: «Есть программа, нужно увеличить масштаб в графике»

textual
                            Листинг программы 
                        
                            Scale(0.3,Fn(b))-(b + 0.1, -1)