Нужна помощь в переводе кода программы из VB.NET в VB 6.0

Public Class Form1
    'Решить уравнение вида  f(x)=0, где  f(x)=a0 + a1x^1 + a2x^2 + … + anx^n, на отрезке 
    '[a, b] методом Ньютона
    Dim A(6), a1, b1, x As Double
    Dim m, n As Integer
    Const eps = 0.01
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label4.Text = "Результат:"
        A(0) = Val(TextBox2.Text)
        A(1) = Val(TextBox3.Text)
        A(2) = Val(TextBox4.Text)
        A(3) = Val(TextBox5.Text)
        A(4) = Val(TextBox6.Text)
        A(5) = Val(TextBox7.Text)
        a1 = Val(TextBox8.Text)
        b1 = Val(TextBox9.Text)
        'проверяем на сходимость
        If f(a1) * f(b1) >= 0 Then
            MsgBox("Условие не выполняется!")
        Else
            'ищем начальную точку
            If fp2(a1) > 0 Then
            ElseIf f(a1) > 0 Then
                x = a1
            ElseIf f(b1) > 0 Then
                x = b1
            End If
 
            If fp2(a1) < 0 Then
            ElseIf f(a1) < 0 Then
                x = a1
            ElseIf f(b1) < 0 Then
                x = b1
            End If
            'Метод Ньютона
            Dim x0, x1 As Double
            x0 = x
            Label4.Text = Label4.Text + Chr(13)
            Do
                'вычисляем приближение
                x1 = x0 - f(x0) / fp(x0)
                Label4.Text = Label4.Text + x1.ToString + Chr(13)
                x0 = x1
            Loop While Math.Abs(f(x0)) > eps Or Math.Abs(x0 - x1) > eps
        End If
        Dim Graph1 As Graphics
        Dim Pen1 As New Pen(Color.Black, 2)
        Dim drawBrush As New SolidBrush(Color.Black)
        Dim drawFont As New Font("Arial", 7)
        Dim XX, Y As Single
        Dim Mashtab, Kachestvo, i, nn, a11, a2, a3, a4, a5, a0 As Integer
        Dim p, r, t As Integer

        Graph1 = Me.PictureBox1.CreateGraphics()
        Graph1.Clear(Color.White) 'очистка
        'печать шкал математической системы координат в компьютерной системе координат
        'ось Х
        For XX = -150 To 150 Step 50
            Graph1.DrawString(XX / 10, drawFont, drawBrush, XX + 150, 80) 'Делим на масштаб
        Next
        'ось Y
        For Y = 0 To 400 Step 50
            Graph1.DrawString((Y - 100) / 10, drawFont, drawBrush, 150, 180 - Y) 'Делим на масштаб
        Next
        'преобразование компьютерной системы координат в математическую систему координат
        Graph1.ScaleTransform(1, -1) 'Поворот оси Y
        Graph1.TranslateTransform(150, -100) 'Сдвиг осей
 
        'рисуем оси
        Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось Х
        Graph1.DrawLine(Pen1, 0, -100, 0, 100) 'Ось Y
        For XX = -150 To 150 Step 50 'Засечки на оси Х
            Graph1.DrawLine(Pen1, XX, -5, XX, 5)
        Next
 
        For Y = -100 To 100 Step 50 'Засечки на Y
            Graph1.DrawLine(Pen1, -5, Y, 5, Y)
        Next
        nn = Val(TextBox1.Text)
        a11 = Val(TextBox3.Text)
        a2 = Val(TextBox4.Text)
        a3 = Val(TextBox5.Text)
        a4 = Val(TextBox6.Text)
        a5 = Val(TextBox7.Text)
        a0 = Val(TextBox2.Text)
        'построение графика функции
        Try 'Отлавливаем ошибки
            Mashtab = 10
            'Kachestvo = TrackBar2.Value
            For XX = -1.5 * (10 / Mashtab) To 1.5 * (10 / Mashtab) Step 1 / 1000 'Шаг в знач. качества
                'For XX = 1 To 100 Step 5 / 10000 'Шаг в знач. качества
                Y = a0 + a11 * XX + a2 * XX ^ 2 + a3 * XX ^ 3 + a4 * XX ^ 4 + a5 * XX ^ 5
                'Y = XX ^ 2
                Graph1.DrawEllipse(Pen1, XX * Mashtab, Y * Mashtab, 1, 1)
            Next XX
 
        Catch
            MsgBox("Произошла ошибка", 48, "Ошибка!")
        End Try
    End Sub
 
    Private Function f(ByVal x As Double)
        f = A(0)
        For i = 1 To n
            f = f + A(i) * x ^ i
        Next
        '    f = A(0) + A(1) * x + A(2) * x * x + A(3) * x * x * x + A(4) * x * x * x * x
    End Function
 
    Private Function fp(ByVal x As Double)
        fp = 0
        For i = 1 To n
            fp = fp + i * A(i) * x ^ (i - 1)
        Next
        '    fp = A(1) + 2 * A(2) * x + 3 * A(3) * x * x + 4 * A(4) * x * x * x
    End Function
 
    Private Function fp2(ByVal x As Double)
        fp2 = 0
        For i = 1 To n
            fp2 = fp2 + (i - 1) * i * A(i) * x ^ (i - 2)
        Next
        '  fp2 = 2 * A(2) + 6 * A(3) * x + 12 * A(4) * x * x
    End Function

    Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        n = Val(TextBox1.Text)
        If n < 1 Or n > 5 Then
            MsgBox("Значения от 1 до 5!")
            TextBox1.Focus()
            'Else
            '    If n >= 1 Then
            '        TextBox2.Enabled = False
            '        TextBox3.Enabled = True
            '        TextBox4.Enabled = True
            '        If n >= 2 Then
            '            TextBox4.Enabled = True
            '            If n >= 3 Then
            '                TextBox5.Enabled = True
            '                If n >= 4 Then
            '                    TextBox6.Enabled = True
            '                    If n = 5 Then
            '                        TextBox7.Enabled = True
            '                    End If
            '                End If
            '            End If
            '        End If
            '    End If
        End If
    End Sub
End Class