home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1999 April / CD_Shareware_Magazine_31.iso / Free / Prg / anicursor.exe / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-02-28  |  602 b   |  12 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. Public Const GCL_HCURSOR = -12
  5.  
  6. Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
  7. Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Any) As Long
  8. Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
  9. Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  10. Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  11.  
  12.