Ændre cursor i Powerpoint

Fandt denne kode der virker :)

Public Const IDC_WAIT As Long = 32514
Public Const IDC_APPSTARTING As Long = 32650
Public Const IDC_ARROW As Long = 32512

Declare Function SetCursor Lib "USER32" _
        (ByVal hCursor As Long) As Long
Declare Function LoadCursor Lib "USER32" Alias _
        "LoadCursorA" (ByVal hInstance As Long, _
            ByVal lpCursorName As Any) As Long

Call SetCursor(LoadCursor(0, IDC_WAIT))
Call SetCursor(LoadCursor(0, IDC_ARROW))

Sådan køres de :)