Найти пересечения с осью х - VB

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

Помогите пожалуйста,нужно чтобы где функция пересекает ось х была метка со значением пересечения... Вот код,рабочий...

Private Function f(x)
f = Cos(2 / x) - 2 * Sin(1 / x) + 1 / x
End Function
 
Private Sub Command1_Click()
Picture1.Cls
Rem масштаб графика
Picture1.Scale (-1, 1)-(2.5, -1.5)
Rem x
Picture1.Line (-4, 0)-(4, 0)
For i = -10 To 10 Step 0.5
Rem metki
Picture1.PSet (i, 0)
Picture1.Line (i, 0)-(i, 0.05)
Rem
Picture1.PSet (i, 0)
Picture1.Print i
Next i
Rem y
Picture1.Line (0, 10)-(0, -10)
For i = -9 To 9 Step 0.5
Rem
Picture1.PSet (0, i)
Picture1.Circle (0, i), 0.01
Rem
Picture1.Print i
Next i
Rem
X1 = Val(Text1)
X2 = Val(Text2)
h = Val(Text3)
Rem
For x = X1 To X2 Step h
Picture1.PSet (x, f(x)), RGB(0, 0, 255)
Next x
End Sub

Решение задачи: «Найти пересечения с осью х»

textual
                            Листинг программы 
                        

                            For x = X1 + h To X2 Step h
'If Abs(x) > h Then
 Picture1.PSet (x, f(x)), RGB(0, 0, 255)
 If Abs(f(x)) <= h Then
   With Picture1
   .FontBold = True
   .ForeColor = vbRed
   .DrawWidth = 2
    Picture1.Line (x, -0.05)-(x, 0.05)
   .CurrentY = 0.15: .CurrentX = x - 0.25
    Picture1.Print Round(x, 1)
    .DrawWidth = 1
   .FontBold = False
   .ForeColor = 0
   End With
 End If
'End If
Next x
                        