por JUAN CARLOS GONZALEZ » 09 Jun 2005 20:45
HOLA AMIGO, ESTA ES UNA POSIBLE SOLUCION
En las declaraciones generales pones:
Dim intCuentaAvance As Integer
SUB BarraProgreso()
Do While intCuentaAvance% < ProgressBar1.Max
intCuentaAvance% = intCuentaAvance% + 1
If intCuentaAvance% > ProgressBar.Max Then
msgBox "Proceso Terminado"
End
End If
ProgressBar.Value = intCuentaAvance%
End Sub
CLARO QUE YA PARA ESTE MOMENTO, DEBES HABER INCLUIDO UNA PROGRESSBAR EN TU FORMULARIO.
ESPERO TE SIRVA.
JUAN CARLOS GONZALEZ CHAVARRIA
SAN JOSE, COSTA RICA.