'Progress bar handler
    Private Sub WebBrowser1_Navigated(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
        ProgressBar1.Visible = True
        With ProgressBar1
            .Minimum = 0
            .Maximum = 50
            .Step = 5
        End With
        For index As Integer = 0 To 50 Step 5
            ProgressBar1.Value = index
            System.Threading.Thread.Sleep(100)
        Next
        ProgressBar1.Value = 0
        If WebBrowser1.IsBusy Then Label2.Text = "loading..."
        elseif ProgressBar1.Value = 100 then label2.text = "done"