من متوجه نشدم
اگر مسئله بر سر تقسیم زمان باشه که فکر می کنم حل شده .
مثلا در کد زیر شما می تونید با تعیین مقدار count و sleep روند پیشرفت را تند یا کند کنید.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
------------------------------------
Private Sub Command0_Click()
Dim count, Progress_Amount
count = 20
RetVal = SysCmd(acSysCmdInitMeter, "در حال انجام محاسبه...", count)
For Progress_Amount = 1 To count
Sleep (100)
RetVal = SysCmd(acSysCmdUpdateMeter,Progress_Amount)
Next
RetVal = SysCmd(acSysCmdRemoveMeter)
End Sub
اما پیش بینی زمان مورد نیاز در یک عمل و ایجاد نسبت مناسب در روند پیشرفت برنامه مبنای تنظیم این متغیرهاست و مستقلا معنی خاصی ندارد .