マウスカーソル

' 元のWaitカーソルを保持
Dim preCursor As Cursor = Cursor.Current

' カーソルを待機カーソルに変更
Cursor.Current = Cursors.WaitCursor

' 少し時間のかかる処理
System.Threading.Thread.Sleep(5000)

' カーソルを元に戻す
Cursor.Current = preCursor