Распаковка архива в потоке (перестал работать проверенный код, возможно после обновления винды) - Visual Basic .NET

Imports System.Threading
Public Class Form1
    ' Запуск процедуры раззиповывания без потока
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace(Application.StartupPath() & "\1.zip")
        Dim output As Shell32.Folder = sh.NameSpace(Application.StartupPath())
        output.CopyHere(input.Items, 16) ' оптимальное значение vOptions=16 (Respond with "Yes to All" for any dialog box that is displayed) иначе выдаются сообщения
    End Sub
    ' Запуск процедуры раззиповывания в отдельном потоке
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        StartUnZIP(Application.StartupPath() & "\1.zip", Application.StartupPath())
    End Sub
    ' Процедура запуска отдельного потока для раззиповывания файла (параметры передаются в поток через структуру RequestParam)
    Sub StartUnZIP(ByVal NameFileInput As String, ByVal NameFolderOutput As String)
        Dim trdUnZIPThread As New System.Threading.Thread(AddressOf UnZIPThread)
        Dim rp As RequestParam = New RequestParam(NameFileInput, NameFolderOutput)
        trdUnZIPThread.Start(rp)
    End Sub
    ' Структура для передачи параметров в поток
    Structure RequestParam
        Public NameFileInput As String ' путь к архиву
        Public NameFolderOutput As String ' конечная папка
        Sub New(ByVal NameFileInput As String, ByVal NameFolderOutput As String)
            Me.NameFileInput = NameFileInput
            Me.NameFolderOutput = NameFolderOutput
        End Sub
    End Structure
    ' Процедура раззиповывания файла (параметры передаются в поток через структуру RequestParam)
    Sub UnZIPThread(ByVal obj As Object)
        Dim rp As RequestParam = CType(obj, RequestParam)
        Dim sh As New Shell32.Shell()
        Dim input As Shell32.Folder = sh.NameSpace(rp.NameFileInput) ' путь к архиву
        Dim output As Shell32.Folder = sh.NameSpace(rp.NameFolderOutput) ' конечная папка
        output.CopyHere(input.Items, 16) ' оптимальное значение vOptions=16 (Respond with "Yes to All" for any dialog box that is displayed) иначе выдаются сообщения
    End Sub
End Class