Private Sub bw1_ProgressChanged(ByVal sender As Object, ByVal e As _
  System.ComponentModel.ProgressChangedEventArgs) Handles bw1.ProgressChanged
 
Dim i As Integer = 0
 
Form2.Show()
Form2.Hide()
 
Do
 
   i = i + 1
 
   Form2.WebBrowser1.Navigate(cip(i) & "/de/pages/d_cbody.htm")
 
   System.Threading.Thread.Sleep(2000)
 
   text(i) = Form2.WebBrowser1.Document.Body.OuterText
 
Loop Until i = count
 
End Sub