2007/12/26(Wed) 22:24:32 編集(投稿者)
taka さん、こんにちは
ダッチです。
どのようにして砂時計に設定したのでしょうか？
マウスカーソルは通常フォームやコントロールに対してを設定します。
もしマウスカーソルを砂時計にしたのにもかかわらず変化がないのであれば、
何もフォームが表示されていないか、フォームの上にマウスカーソルがない状態だと思います。
たとえば、このコードでは Form1 が表示されるまでの間
マウスカーソルが砂時計になります。
砂時計になることが確認できるのは Button1 が配置されているフォームや
同じアプリケーションのそれ以外のフォームの上にマウスカーソルがある場合です。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Windows.Forms.Cursor.Current = Cursors.WaitCursor
Dim f As New Form1
Threading.Thread.Sleep(3000) ' わかりやすいようにスリープを入れています。
f.Show()
System.Windows.Forms.Cursor.Current = Cursors.Default
End Sub
参考になるページがありましたので紹介します。
フォーム（またはコントロール）のマウスポインタ（カーソル）を待機状態にする
http://dobon.net/vb/dotnet/form/cursorcurrent.html