Use o seguinte parâmetro:

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

End Sub

'O "progress" é o processo da página
'O "progressmax" é o processo total da página

t++

Marcus Vinícius

--edited--

Qualquer dúvida é só postar !

t++

Marcus Vinícius