Buenas, tengo un pequeño problema con una aplicacion que no me carga un cursor, debido a esto me vi obligado a usar varias APIs para cargar el cursor. En si la aplicacion si cargo el cursor correctamente pero solo hasta que se mueve el mouse luego de eso regresa al anterior :S.

La idea es cargar el cursor en la aplicacion y cuando esta cierre que el cursor quede como estaba.

Aca les dejo el code que encontre pero es el que cambia al mover el cursor:

 
    Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
    Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
 
    ' Display the application starting (arrow and hourglass) Windows
    ' cursor for three seconds. The cursor resource is loaded from Windows. Then
    ' restore the old cursor (whatever it happens to be).
 
    Dim hcursor    As Long ' receives handle to application starting cursor
    Dim holdcursor As Long ' receives handle to previously used cursor
    Dim retval     As Long ' throw-away return value
 
    hcursor = LoadCursor(0, IDC_APPSTARTING) ' load Windows's application starting cursor
    holdcursor = SetCursor(hcursor) ' set it to the new cursor
 
    Sleep 3000 ' wait for 3 seconds 
 
    retval = SetCursor(holdcursor) ' set it to the previous cursor
 
 

NOTA: Intente cambiando el cursor actual con SetSystemCursor pero no creo que eso sea buena idea ya que despues hay que restaurar el cursor de forma manual :S.

Si lo intente con DoEvents pero inmediatamente despues de cambiar el cursor vuelve al anterior :S

Esporque tenes que hacer doevents mediante 3 segundos, con algun bucle o algo

Karcrack, porque el sleep congela todo

Option Explicit
 
Private Declare Function SetCursor Lib "user32.dll" (ByVal hcursor As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Const IDC_APPSTARTING As Long = 32650
Private Const IDC_ARROW As Long = 32512&
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Any) As Long
Dim normal As Long, wait As Long
 
Private Sub Form_Load()
    wait = LoadCursor(0&, IDC_APPSTARTING)
    normal = LoadCursor(0&, IDC_ARROW)
    Esperar 3000
    Call SetCursor(normal) ' set it to the previous cursor
End Sub
 
Public Sub Esperar(Miliseconds As Long)
    Dim retraso As Long
    'GetTickCount devuelve un valor inicial, y se lo sumamos al de retraso
    retraso = Miliseconds + GetTickCount
    While retraso >= GetTickCount
        DoEvents
        Call SetCursor(wait)
    Wend
End Sub
 

El problema fue que apenas se ponia el cursor, se cambiaba el cursor a otro segun el evento de una ventana  por eso en ese bucle, forzamos a mostrar nuestro cursor