[asemshahen5]

كود :

progressBar1.Maximum = DatagridView1.RowCount - 1'Set Max Lenght
progressBar1.Step = 1 'Set Step
progressBar1.Value = 0 'Set Begin value

For line as integer = 0 to DatagridView1.RowCount - 1
   progressBar1.Value = line ' This is more better
   'Add your command / syntax
Next