メッセージボックスでOK押したあとに
スリープさせてその間マウスポインタを砂時計にする処理で
マウスポインタが砂時計になったりならなかったり（ほとんどならない）
するのですが何故でしょうか。
必ず砂時計にする方法はありませんかね。

フォームにCommand1が一個の再現ケース
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
        MsgBox "foo"
        Me.MousePointer = vbHourglass
        Sleep 3 * 1000
        Me.MousePointer = vbNormal
End Sub