progress bar

[guillebomtrasmiti]

b = CInt((Val(row.Cells(11).Value)))
c = DgTotales.Rows.Count
If b <> a Then
ProgressBar1.Maximum = c
ProgressBar1.Minimum = 0
ProgressBar1.Value += 1

a = CInt((Val(row.Cells(11).Value)))
Textpruebafinal.Text = CStr(a)


esto que he conseguido ya sabe cuantas lineas hay y las veces que va a tener que hacer el progress bar el problema es por ejemplo,....si tengo 200 líneas llega un momento que me salta un error que dice 201 no puede realizarse debe estar entre los valores maximun y minimun