処理が実行されていることや、どのボタンがクリックされたのかを表す
手段の1つとして、コマンドボタンがクリックされたら標題や前景色を変更する
方法があります。

　例えば、クリック前は標題に「更新処理」と設定されているコマンドボタンが
あるとします。クリックされると標題が「更新処理中」と変化すれば、処理が
実行されていることを知らせることができます。

　サンプルでは、「実行」という標題のボタンをクリックすると、「処理実行中」
と標題が変更され、更に前景色が赤になります。そして、メッセージボックスが
表示され、[OK]ボタンをクリックすると、標題と前景色が元の状態に戻ります。

　このプロシージャは、コマンドボタンがクリックされた時に発生するイベント
「Click」に作成します。

● 準備 ●

　フォームにコマンドボタン「コマンド0」を配置してください。
　コマンドボタンのプロパティシートで、標題には「実行」、前景色を黒に設定
します。

● サンプル ●

Private Sub コマンド0_Click()
    Me!コマンド0.Caption = "処理実行中"
    Me!コマンド0.ForeColor = RGB(255, 0, 0)
    
    MsgBox "処理が終了しました"
    
    Me!コマンド0.Caption = "実行"
    Me!コマンド0.ForeColor = RGB(0, 0, 0)
    
End Sub