progress bar örneği

progress bar örneği
progressbar1 rin ismini PB ile değiştirdim daha kolay oldu. özelliklerinden title dan
_________________________
Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
Me.PB.Maximum = Convert.ToInt32(e.MaximumProgress)
Me.PB.Value = Convert.ToInt32(e.CurrentProgress)
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
PB.Visible = True
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
PB.Visible = False
End Sub