Mensaje enviado por "Carlos E. Cortés P." <ccortes@ecomchaco.com.ar>

' Default form pointer index constant
Private Const GLC_HCURSOR = (-12)

' Store index of swapped cursor
Private hSwapCursor As Long

Public Declare Function LoadCursorFromFile Lib "user32" Alias _
       "LoadCursorFromFileA" (ByVal lpFileName As String) As _
       Long

Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" _
       (ByVal hWnd As Long, _
        ByVal nIndex As Long, _
        ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
   Dim hAniCursor As Long
   hAniCursor = LoadCursorFromFile(App.Path & "\dgr.ani")
   hSwapCursor = SetClassLong(frmSplash.hWnd, GLC_HCURSOR, hAniCursor)
End Sub

Private Sub Form_Unload(Cancel As Integer)
   hSwapCursor = ModUtiles.SetClassLong(frmSplash.hWnd, GLC_HCURSOR,
hSwapCursor)
End Sub

Suerte

Carlos E. Cortés P.
ccortes@ecomchaco.com.ar