Como simular progressbar al cargar una web en un webbrowser?

[hunter18]

Como esta aqui dejo el codigo esta con el progressbar todavia

Código:

Private Sub cmdGo_Click()
WebBrowser1.Navigate txtUrl.Text
End Sub

Private Sub Form_Load()
'
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
Dim Cxb2
On Error GoTo Cxb2
'El Máximo de la barra es la variable ProgressMax
ProgressBar1.Max = ProgressMax
ProgressBar1.Value = Progress

    If ProgressMax <= 0 Then
      ProgressBar1.Visible = False
      MsgBox "Listo"
    Else
       ProgressBar1.Visible = True
    End If
Exit Sub
Cxb2:
If Err.Number = 380 Then Resume Next
End Sub

Como ya dije me manda el mensaje al ejecutar el form1, y solo deberia aparecer cuando preciono el boton.
Me parece que el error aparece por que al ejecutar el form me aparece la pagina de error del IE supongo que carga esa pagina o no? en todo caso como lo puedo solucionar ya que si la carga de la web esta correcta y no presento ningun problema debe habilitarme un boton para recuperar info de dicha pagina