Cursore # Private Sub Form_Load()
sCursorFile = "c:\windows\cursors\\Globe.ani" hCursor = LoadCursorFromFile(sCursorFile) hOldCursor = SetClassLong(Form1.hwnd, GCL_HCURSOR, hCursor) End Sub Private Sub Form_Unload(Cancel As Integer) lReturn = SetClassLong(Form1.hwnd, GCL_HCURSOR, hOldCursor) End Sub ' nel modulo bas Declare Function LoadCursorFromFile Lib "user32" _ Alias "LoadCursorFromFileA" _ (ByVal lpFileName As String) As Long Declare Function SetClassLong Lib "user32" _ Alias "SetClassLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Public Const GCL_HCURSOR = (-12) |