Dimming a webbrowser?

[motil]

try this:

 Dim wb As New WebBrowser
        Me.Controls.Add(wb)
        wb.Navigate("http://google.com")
        While (Not wb.ReadyState = WebBrowserReadyState.Complete)
            Application.DoEvents()
            If (wb.ReadyState = WebBrowserReadyState.Complete) Then
                MessageBox.Show(wb.Url.ToString)
            End If
        End While