Como veran cargo la web de esta forma
Código:
Private Sub Command1_Click()
WebBrowser1.Navigate "http://forosdelweb.com"
End Sub
y para ver el progreso encontre este ejemplo que utiliza el progressbar
Código:
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
Al terminar la carga envia un mensaje , como hago para quitar el progressbar y al terminar la carga solo me envie el mensaje?