per la progressbar(la mia si chiama Progress):

codice:
    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
        Dim d, t As Long
        Progress.Visible = True
        d = e.CurrentProgress
        t = e.MaximumProgress
        If d <= 0 Then
            Progress.Value = 0
            Progress.Visible = False
        Else
            Progress.Value = Math.Min(Progress.Maximum, Convert.ToInt32(Math.Floor(Progress.Maximum * (d / t))))
        End If
    End Sub