ステータスバーにインジケータ（処理状態）を表示する。 （ SysCmd(acSysCmdInitMeter, メッセージ、最大数 ）
＜手順＞
・ＤＡＯの参照設定が必要。
１．インジケータに最大値をセット
２．インジケータのカウントアップ
３．インジケータを消す。
＜サンプル＞
Dim varReturn As Variant
Dim strMsg As String
Dim lngMax As Long
Dim lngcount As Long
'インジケータに表示する文字。
strMsg = "ただいま、処理しています。しばらく待ちください…"
lngMax = 100 '最大値セット
'インジケータを初期化します。
varReturn = SysCmd(acSysCmdInitMeter, strmsg, lngMax)
'インジケータを増やす
For lngcount = 1 To lngMax
'インジケータを増加させます。
varReturn = SysCmd(acSysCmdUpdateMeter, lngcount)
Next lngcount
'インジケータを閉じます。
varReturn = SysCmd(acSysCmdRemoveMeter)