Dim iintLoop     As Integer
    Dim varRet       As Variant
    Const cintRecMax As Integer = 1000    'ここでは1000件のデータを処理するとします。

    '進行状況インジケータを初期化します。
    varRet = SysCmd(acSysCmdInitMeter, "ただいま処理中", cintRecMax)

    '実際の処理ループです。
    For iintLoop = 1 To cintRecMax
      '
      'ここで１件についての処理を行います。
      '
      '進行状況インジケータをカウントアップした値に更新します。
      varRet = SysCmd(acSysCmdUpdateMeter, iintLoop)
    Next iintLoop
  
    '進行状況インジケータを消去します。
    varRet = SysCmd(acSysCmdRemoveMeter)