[dasktop]

تفضل جرب الكود التالي

كود :

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

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