Какой метод интегрирования используется в приведенном коде

Imports System.Threading
Imports System.Threading.Thread
Imports System.Windows.Forms.Application
Imports System.Math
Public Class Form1
    Public MyThreadObj As Thread
    Public flg As Boolean 'Флаг выполнения потока 
    Public i As Integer 'Основная переменная 
    Private Sub Test()
        Dim S As Double 'Площадь поверхности
        Dim a As Double 'Верхняя граница
        Dim b As Double 'Нижняя граница 
        Dim h As Double 'заданная точность
        Dim n As Double 'Шаг сетки
        Dim i As Double 'локальная переменная
        Dim x As Double 'Первый корень
        Dim xi As Double 'Второй корень
        b = 3.14
        a = 0
        h = 0.01
        n = (b - a) / h
        i = 1
        S = 0
        While flg = True
            x = a + i * h
            xi = a + (i + 1) * h
            S = S + ((xi + x) / 2) ^ 2 * (Sin((xi + x) / 2)) ^ 3 * (xi - x)
            i = i + 1
            TextBox1.Text = S.ToString()
            DoEvents()
            Sleep(5) 'задержка
            If i > n Then
                flg = False
            End If
        End While
    End Sub
    Private Sub CreateThread()
        MyThreadObj = New Thread(AddressOf Test)
        MyThreadObj.Start()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        flg = False
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        flg = True
        CreateThread()
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        flg = False
    End Sub
End Class