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