Public Class Form1 Private Declare Unicode Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileW" (lpFileName As String) As IntPtr Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'モノクロカーソルの場合 Button1.Cursor = New Cursor("C:\Windows\Cursors\lwe.cur") 'カラーカーソルの場合 Button2.Cursor = New Cursor(LoadCursorFromFile("C:\Windows\Cursors\aero_pen_xl.cur")) 'アニメーションカーソルの場合 Button3.Cursor = New Cursor(LoadCursorFromFile("C:\Windows\Cursors\aero_working_xl.ani")) End Sub End Class