la proprietà allownavigation e true e i codici sono questi:
Private Sub WebPage1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebPage1.DocumentCompleted
Tool1AdressBox.Text = WebPage1.Url.AbsoluteUri
End Sub
Private Sub WebPage1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEven tArgs) Handles WebPage1.ProgressChanged
Dim d, t As Long
ToolStripProgressBar1.Visible = True
d = e.CurrentProgress
t = e.MaximumProgress
If d <= 0 Then
ToolStripProgressBar1.Value = 0
ToolStripProgressBar1.Visible = False
Else
ToolStripProgressBar1.Value = Math.Min(ToolStripProgressBar1.Maximum, Convert.ToInt32(Math.Floor(ToolStripProgressBar1.M aximum * (d / t))))
End If
AggiornaCronologia()
End Sub
eccoli qui