PROGRESSBAR

PERCIFILHO 14/04/2011 10:49:12
#371311

Olá, pessoal, estou tentando começar com VB.Net e estou tendo uma dúvida. Em uma consulta de produtos, vou mostrar todos os produtos cadastrados numa ListView e enquanto carrega a Lista, quero utilizar um ProgressBar. O código que estou utilizando é esse:

Private Sub Consulta_Load(ByVal sender As Sustem.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim con As New OleDbConnection(conexao)
If con.State = ConnectionState.Closed Then con.Close()
con.Open()
Dim da As New OleDbDataAdapter([Ô]Select * From Produtos Order by nome[Ô], con)
Dim ds As New DataSet
da.Fill(ds, [Ô]Produtos[Ô])
Dim i As Integer
For i = 0 To ds.Tables([Ô]Produtos[Ô]).Rows.Count - 1
LstProdutos.Items.Add(ds.Tables([Ô]Produtos[Ô]).Rows(i)([Ô]codigo[Ô]))
LstProdutos.Items(i).SubItems.Add(ds.Tables([Ô]Produtos[Ô]).Rows(i)([Ô]nome[Ô]))
Next
con.Close()
End Sub

Preciso saber em que parte do código coloco os comandos da ProgressBar.
PS: No VB.NET não existe mais Do Events?

Até mais.