マウスポインターを砂時計にするには？ (ID:81986)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6ではフォーム上にマウスカーソルがある時にしかカーソル変更出来なかったような気がします。 うろ覚えなんで正確なことはわからないですけど。 ↓のコードで試してみてください。 Option Explicit Private Sub Command1_Click() Dim lLp As Long Screen.MousePointer = vbHourglass For lLp = 0 To 100000000 Next Screen.MousePointer = vbDefault End Sub フォーム上にカーソルがある場合はScreen.MousePointerで正常に変更できますが、 フォームの外にカーソルがある場合、Screen.MousePointerを通って重たい処理が入った後フォーム上にカーソルを戻してもカーソルは砂時計になりません。 ※コマンドボタンはスペースキーで押して下さい。