アニメーションカーソル(.ani)を読み込む

この例ではButton1をクリックすると、アニメーションカーソルを表示し、Button2をクリックすると通常のカーソルに戻ります。

前提：C:\temp\temp.ani というファイル名でアニメーションカーソルが存在すること。

Public Class Form1

    <Runtime.InteropServices.DllImport("user32")>
    Private Shared Function LoadCursorFromFile(lpFileName As String) As IntPtr
        'この中身は空のままにすること。詳細を調べる場合は DllImport を調べてください。
    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        'アニメーションカーソルをロードして表示する
        Dim handle As IntPtr = LoadCursorFromFile("C:\temp\temp.ani")
        Me.Cursor = New Cursor(handle)

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        '通常のカーソルに戻す
        Me.Cursor = Cursors.Default

    End Sub

End Class