Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged ToolStripProgressBar1.Value = _ Integer.Parse(System.Math.Floor((e.CurrentProgress / e.MaximumProgress) * _ (ToolStripProgressBar1.Maximum - ToolStripProgressBar1.Minimum) + ToolStripProgressBar1.Minimum).ToString) End Sub