ポインタの砂時計の代わりにランプで。。。。
ある処理を行うときに、処理中はポインタを砂時計にするには
Screen.MousePointer = vbHourglass
処理内容
Screen.MousePointer = vbDefault
にしますが、砂時計の代わりに、ランプを赤で表示するにはどうしたら
いいのですか?(処理が終わったら黒で表示)
Shape1.FillColor = &HFF
処理内容
Shape1.FillColor = &H0&
でいけると思ったのですが、どうやら、完全に処理が終わらないと、
色が変化してくれないようなので・・・・。(黒のまま)
なにかいい方法があったら教えてください。(Shapeでなくても可)
お礼
ありがとうございました。