hHook = SetWindowsHookEx(2, KeyHookProc, 0, App.ThreadID)
出现参数不可选,是什么意思?
Public Function KeyHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long‘code hereEnd Function
出现参数不可选,是什么意思?
Public Function KeyHookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long‘code hereEnd Function
改成:hHook = SetWindowsHookEx(2, AddressOf(KeyHookProc), 0, App.ThreadID)