データをCSV形式で保存する際、ウインドウを非表示にして作業を行っています。

＜アプリケーション＞
ウインドウをopeｎする。

＜ウィンドウ - OPENイベント＞
コマンドボタンのclickedイベントを呼ぶ。

＜コマンドボタン - Clickedイベント＞

１．保存の確認
２．データを検索
３．保存場所の指定

２のデータ検索をしている間マウスポインターを砂時計に指定したいのですが矢印のままで変わってくれません。

ウィンドウが非表示でもマウスポインターを砂時計にできるのか、できるのならばどんな方法があるのか

どなたかご存知でしたら教えてください。

＊参考にコマンドボタンに書いているスクリプトを載せておきます。

Integer  li_ans  
integer  li_no
pointer  old_pointer

/* CSV形式で保存する確認 */
li_ans = Messagebox(\"確認\",\"データ出力を実行します。~n　よろしいですか？\", Question!, YesNo!)

//マウス ポインタを砂時計型にする
old_pointer = SetPointer(HourGlass!)

/* dw_1を検索 */
li_no = dw_1.Retrieve()

//マウス ポインタを元に戻す
SetPointer(old_pointer)

/* CSV形式で保存 */
li_ans = dw_1.SaveAs( \"\", CSV!, FALSE)