[VB.NET]ProgressBar leggere il valore

[x69asterix]

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

 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

[chipdb]

Originariamente inviato da x69asterix
Label1.Text = i.ToString * 100 / i.ToString

scusami ma un pò di matematica?

x = a*100/a = 100 SEMPRE

al massimo dovrai fare

Dim valore As single = i  * 100 / (DataGridView1.Rows.Count - 1)
Label1.Text = String.Format("{0}%", valore)