Hola,
Mira si tienes todo tu proceso en un ciclo ocupa un contador y lo pones donde dice "a", donde dice "lineas" es tu maximo que alcance el que equivale a 100% y el "a" no debiera pasar eso sino marcara error
lineas=500
a=0
barra_progreso.Value = 0 'ESTE ES EL VALOR INICIAL
barra_progreso.Maximum = lineas
'EMPIEZAS TU CICLO EJEMPLO
do while (a<lineas)
'AQUI PONES TU CODIGO CORRESPONDIENTE MAS EL CONTADOR
Y UNA PROPIEDAD QUE PERMITE QUE EL PROGRESS BAR FUNCIONE
a = a + 1
barra_progreso.Value = a 'AUMENTA CADA VEZ QUE SUMA ELCONTADOR
Application.DoEvents() 'PERMITE QUE EL EVENTO FUNCIONE
loop
Debiera funcioanrte, yo lo hago, así
Suerte
