AccessVBA/ステータスバーに進行状況インジケータの表示

AccessVBA/ステータスバーに進行状況インジケータの表示 †

Dim i As Long
SysCmd acSysCmdInitMeter, "処理中です", 1000000
For i = 1 To 1000000
  SysCmd acSysCmdUpdateMeter, i
Next i
SysCmd acSysCmdRemoveMeter