VB progresbar do tabcontrol

jak to połaczyć z progresbarem aby pokazywał załadowanie strony

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim myTabPage As New TabPage()
        Dim theweb As New WebBrowser
        myTabPage.Text = "Karta" & (TabControl1.TabPages.Count + 1)
        TabControl1.TabPages.Add(myTabPage)
        theweb.GoHome()
        theweb.Parent = myTabPage
        theweb.Visible = True
        theweb.Dock = DockStyle.Fill
    End Sub