Public Sub Browser1_ProgessChange2(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles _
      Browser1.ProgressChanged
        ProgressBar1.Maximum = e.MaximumProgress
        ProgressBar1.Value = e.CurrentProgress
    End Sub

    Public Sub ProgressChange2(ByVal progress As Integer, ByVal progressMax As _
      Integer) Implements DWebBrowserEvents2.progresschange
        RaiseEvent ProgressChange(progress, progressMax)
    End Sub