Ｃａｐｔｉｏｎが変更されない

ａｃｃｅｓｓＶＢＡで下記のプログラムを作りました。
　使用ＯＳはＸＰ、ソフトはａｃｃｅｓｓ2003です

Private Sub コマンド2_Click()

Me.コマンド2.Caption = "計 算 中 で す"
Me.コマンド2.ForeColor = 255 ' 赤に

For i = 1 To 10000000
aa = 2 ^ 20
Next

Me.コマンド2.Caption = "待 機 中 で す"
Me.コマンド2.ForeColor = 8421376 ' 緑に

End Sub

"待 機 中 で す"　・・・は変更されますが、最初の"計 算 中 で す"は変更されません。

「コマンド2」をクリックした直後に、"計 算 中 で す"・・・と表示させたいのですが、
どうすれば良いでしょうか？

No.2 回答者： 30246kiku 回答日時： 2012/03/12 21:13

Me.コマンド2.Caption = "計 算 中 で す"

Me.コマンド2.ForeColor = 255 ' 赤に
Me.Repaint ' ★この記述を追加

のようにしてみて、どうなりますか。

No.1 ベストアンサー 回答者： nda23 回答日時： 2012/03/12 19:39

画面を変更しても「変更イベント」が処理されるまで

何も変化しません。処理が終わって、Subを抜けた
時に溜まったイベントが一気に処理され、最後に
変更した"待機中です"だけが結果として見えます。

途中でイベントを消化させるにはDoEventsを実行
します。但し、このステートメントはイベントを反映
するため、危険を伴うこともあります。

とりあえず、最初の2個の命令後にDoEventsを
置けばよいでしょう。