Configuracion de un Progress Bar

Hola me pueden ayudar con la configuración de un Progress Bar, la dud que
tengo es la forma de como incrementarla, pero ya le tengo asignado el
prgBarTraspaso.Maximum = lNumRegTotal pero como les digo es que no

la forma de incrementar el value dentro de un ciclo:

prgBarTraspaso.Maximum = lNumRegTotal
While drDatos.Read
MsgBox(drDatos("us_codigo") & " - " & drDatos("us_login"))
prgBarTraspaso. ???=?????
End While


Geovanny Tomalá
Dept. de Sistemas
Ferremundo S.A.
Tel. (593)-042291714 ext 112