mentre la progressbar situata all' interno di un ciclo avanza dovrei visualizzare il suo valore attuale in una label, per farla avanzare uso:

codice:
 PBar1.Minimum = 0
        PBar1.Maximum = DataGridView1.Rows.Count - 1
        Label1.Text = 0

        conn.Open()
 Try

            For i As Long = 0 To DataGridView1.Rows.Count - 1
                Application.DoEvents()
                DataGridView1.CurrentRow.Selected = True
                Dim nome = DataGridView1.Item(4, DataGridView1.CurrentCell.RowIndex).Value.Replace("'", "''")
                dataAdapter = New SqlDataAdapter("UPDATE PianiElaborazione SET Anno = " & DataGridView1.Item(1, DataGridView1.CurrentCell.RowIndex).Value & ", Cartella ='" & DataGridView1.Item(2, DataGridView1.CurrentCell.RowIndex).Value & "',Tipo= '" & DataGridView1.Item(3, DataGridView1.CurrentCell.RowIndex).Value & "', Entrata ='" & DataGridView1.Item(5, DataGridView1.CurrentCell.RowIndex).Value & "',Disponibilita='" & DataGridView1.Item(6, DataGridView1.CurrentCell.RowIndex).Value & "', Elaborata='" & TextBox5.Text & "',DaFisicaARadio= '" & TextBox12.Text & "', Permanenza= '" & TextBox10.Text & "', Fisico='" & nome.ToString & "',Ritiro='" & DataGridView1.Item(8, DataGridView1.CurrentCell.RowIndex).Value & "' WHERE ID = " & DataGridView1.Item(0, DataGridView1.CurrentCell.RowIndex).Value & "", conn)
                Application.DoEvents()
                DataGridView1.CurrentCell = DataGridView1.Rows(i.ToString).Cells(0)
                commandBuilder = New SqlCommandBuilder(dataAdapter)
                dataSet = New Data.DataSet
                dataAdapter.Fill(dataSet)

                PBar1.Value = i.ToString
                Form1.Piani.ShowBalloonTip(10, "Modifica", vbCrLf + "Il record " + i.ToString + " è stato modificato! ", ToolTipIcon.Info)
                Label1.Text = i.ToString 

            Next
in questo modo tutto funziona ad eccezione del fatto che il valore della pb visualizzata nella label è il conteggio della DataGridView1.Rows.Count - 1, ho provato a manipolare Label1.Text = i.ToString con
Label1.Text = i.ToString * 100 / i.ToString
ma ottengo un numero fisso 100 senza progressione della label