Public Const IDC_ARROW = 32512&
    Public Const IDC_IBEAM = 32513&
    Public Const IDC_WAIT = 32514&
    Public Const IDC_CROSS = 32515&
    Public Const IDC_UPARROW = 32516&
    Public Const IDC_SIZE = 32640&
    Public Const IDC_ICON = 32641&
    Public Const IDC_SIZENWSE = 32642&
    Public Const IDC_SIZENESW = 32643&
    Public Const IDC_SIZEWE = 32644&
    Public Const IDC_SIZENS = 32645&
    Public Const IDC_SIZEALL = 32646&
    Public Const IDC_NO = 32648&
    Public Const IDC_APPSTARTING = 32650&

    Private Const OCR_NORMAL = 32512&

    Private Const GCW_HCURSOR = (-12)

    <DllImport("user32")> _
    Private Shared Function CopyIcon(ByVal hIcon As IntPtr) As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function SetCursor(ByVal hCursor As IntPtr) As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function LoadCursor(ByVal hInstance As IntPtr, ByVal lpCursorName As IntPtr) As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function SetSystemCursor(ByVal hcur As IntPtr, ByVal id As IntPtr) As Boolean
    End Function

    <DllImport("user32")> _
    Private Shared Function LoadCursorFromFile(ByVal lpFileName As String) As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function GetCursor() As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function SetClassWord(ByVal hwnd As IntPtr, ByVal nIndex As IntPtr, ByVal wNewWord As IntPtr) As IntPtr
    End Function

    <DllImport("user32")> _
    Private Shared Function DestroyCursor(ByVal hCursor As IntPtr) As IntPtr
    End Function

    Private currenthcurs As IntPtr
    Private tempcurs As IntPtr

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim hcursor As IntPtr
        Dim ret_val As Boolean

        currenthcurs = GetCursor()
        tempcurs = CopyIcon(currenthcurs)

        hcursor = LoadCursorFromFile("C:\3dgarro.cur")

        ret_val = SetSystemCursor(hcursor, New IntPtr(OCR_NORMAL))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ret_val As Boolean

        ret_val = SetSystemCursor(tempcurs, New IntPtr(OCR_NORMAL))
    End Sub