Построить график функции на заданном отрезке (исправить код) - VB

Option Explicit
Private Sub Command1_Click()
Picture1.Cls
x0 = 2
y0 = 5.5
Picture1.Line (x0, x0)-(x0 + 8, x0)
Picture1.Print "10"
Picture1.Line (x0, y0 - 4)-(x0, y0 + 6)
Picture1.Print "10"
x = 3
Y = -(x + 3) / (x - 2) - y0
Picture1.PSet (x, -Y - 6)
Picture1.Print "3"
Picture1.PSet (x, -Y)
Do While x <= 10
Y = -(x + 3) / (x - 2) - y0
Picture1.Line -(x, -Y), RGB(30, 100, 200)
x = (x + 0.1)
Loop
End Sub