Sub BrowserProgressChanged(sender As Object, e As _
  WebBrowserProgressChangedEventArgs)
        ' Debug.WriteLine(e.CurrentProgress.ToString & "/" & 
        ' e.MaximumProgress.ToString)
        Try
            If Not IsNothing(browser.Document.GetElementById( _
              "production_table"))  Then
                browser.Stop()
                BrowserRdy()
            End If
        Catch ex As Exception
        End Try
End Sub

MfG c00p3r