给大家送点甜心

gnoy

好久没上来了,坛子好热闹呀.送个小东东给大家

Public Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long

Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long



SetCursor LoadCursor(GetWindowLong(Application.hWndAccessApp, -6), 317)