砂時計ポインタ

　ACCESSで、マウスカーソルを砂時計表示にする方法。

'砂時計
   DoCmd.Hourglass True

'砂時計解除
   DoCmd.Hourglass False

と、します。

　Excelの場合だと、

'砂時計
   Application.Cursor = xlWait

'砂時計解除
   Application.Cursor = xlNormal

です。

　私はExcelはたまにしかやらないので、よく忘れます。