Автопрокрутка текстого поля в WindowsForms

Delegate Sub UpdateText(ByVal text As String)
    Public Поток As New System.Threading.Thread(AddressOf Start)
    Dim Cur As String = Environment.CurrentDirectory
    Dim fso = CreateObject("Scripting.FileSystemObject")

    Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        FoldBrowse.SelectedPath = txtPath.Text
        FoldBrowse.ShowDialog()
        txtPath.Text = FoldBrowse.SelectedPath
    End Sub

    Private Sub frm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Fold As String = Cur & "\Acoustic"
        If Not fso.FolderExists(Fold) Then txtPath.Text = Cur Else txtPath.Text = Fold
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Поток.Start()
    End Sub

    Private Sub Start()
        Dim tmp
        If rbZapf.Checked Then
            TextChange(Date.Now & " Начинаем поиск *.zapf-файлов..." & vbCrLf)
            For Each tmp In fso.GetFolder(txtPath.Text).Files
                If fso.GetExtensionName(txtPath.Text & tmp.Name) = "zapf" Then
                    TextChange(Date.Now & " Обнаружен файл: " & tmp.Name & vbCrLf)
                    TextChange(Date.Now & " Начинаю преобразование файла: " & tmp.Name & vbCrLf)
                    Shell(Cur & "\zapf2apf.exe " & Chr(34) & tmp.Path & Chr(34))
                    TextChange(Date.Now & " Преобразование " & tmp.Name & " завершено" & vbCrLf)
                End If
            Next
        Else
            TextChange(Date.Now & " Начинаем поиск *.apf-файлов..." & vbCrLf)
            For Each tmp In fso.GetFolder(txtPath.Text).Files
                If fso.GetExtensionName(txtPath.Text & tmp.Name) = "apf" Then
                    TextChange(Date.Now & " Обнаружен файл: " & tmp.Name & vbCrLf)
                    TextChange(Date.Now & " Начинаю преобразование файла: " & tmp.Name & vbCrLf)
                    Shell(Cur & "\apf2zapf.exe " & Chr(34) & tmp.Path & Chr(34))
                    TextChange(Date.Now & " Преобразование " & tmp.Name & " завершено" & vbCrLf)
                End If
            Next
        End If
    End Sub
    Private Sub TextChange(ByVal value As String)
        If txtLog.InvokeRequired Then
            txtLog.Invoke(New UpdateText(AddressOf TextChange), value)
        Else
            txtLog.Text = txtLog.Text & value
        End If
    End Sub