Trình duyệt web trong chuỗi bổ sung không tải xuống sự kiện hoàn chỉnh

Xin chào,

Tôi có vấn đề sau:

Sự kiện tải xuống hoàn tất không được tải trong phần phụ.

Trừ khi tôi chèn Messagebox.Show dưới dạng thử nghiệm. Sau đó, sự kiện tải xuống hoàn tất được kích hoạt. Tôi không hiểu vấn đề.

Nút gọi chuỗi với:

Dim ThreadX As New Thread(AddressOf MTX)
ThreadX.SetApartmentState(ApartmentState.STA)
ThreadX.Start()

Phần tử trình duyệt web được tạo trong một chuỗi mới: (Hoạt động với Messagebox “MessageBox.Show(“OK1″)”. Không hoạt động)

    Sub MTX()
        Dim WB1 As New WebBrowser
        WB1.ScriptErrorsSuppressed = True
        WB1.Navigate(New Uri("https://google.at"))

Reload:
        MessageBox.Show("OK1")
        If WB1.ReadyState = WebBrowserReadyState.Complete Then
            MessageBox.Show("LOADED")
        Else
            Thread.Sleep(500)
            GoTo Reload
        End If

    End Sub

Tôi cũng đã thử nó với Vòng lặp Do While nhưng không thành công

Có ý tưởng gì không? i Tìm kiếm từ 2 ngày trên 10 giờ

Những gì tôi đã thử:

I have also tried it with a Do While Loop, without success

Any ideas? i Search since 2 days over 10 hours