○VB6 ウエイトのかかる処理

■マウスポインタを砂時計にします

Screen.MousePointer = vbHourglass 'アイコンを砂時計にする
DoEvents '描画

'重い処理

Screen.MousePointer = vbDefault 'アイコンを戻す