Private Sub WebBrowser1_StatusTextChanged( _ ByVal sender As Object, ByVal e As EventArgs) Handles WebBrowser1.StatusTextChanged Me.ToolStripStatusLabel1.Text = WebBrowser1.StatusText End Sub