Dim Thread2 As System.Threading.Thread Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckForIllegalCrossThreadCalls = False End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Thread2 = New System.Threading.Thread(AddressOf Ros) Thread2.IsBackground = True Thread2.Start() End Sub Private Sub Ros() For Number_of_page = 1 To 10 WebBrowser1.ScriptErrorsSuppressed = True WebBrowser1.Navigate("http://www.codeproject.com/script/Answers/List.aspx?tab=active&alltags=True&tags=842&pgnum=" & Number_of_page) While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete Application.DoEvents() End While MsgBox("Page loaded!") Next Number_of_page End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)