Function BarraProgreso()
Dim I As Integer, x As Date
x = Time

For I = 1 To 100 Step 20
SysCmd acSysCmdInitMeter, "Completado...", 100
SysCmd acSysCmdUpdateMeter, I
Do Until Format(x, "hh:mm:ss") < Format(Time - #12:00:01 AM# / 1000,"hh:mm:ss")
Loop

x = Now
Next I
SysCmd acSysCmdSetStatus, "Listo"

End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)