Code:
Option Compare Database
Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function LoadLibrary Lib "kernel32" _
Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
#Else
Private Declare Function LoadLibrary Lib "kernel32" _
Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
#End If
#If VBA7 Then
Private Declare PtrSafe Function FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
#Else
Private Declare Function FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
#End If
#If VBA7 Then
Private Declare PtrSafe Function StopMouseWheel Lib "MouseHook" _
(ByVal hwnd As Long, ByVal AccessThreadID As Long, _
Optional ByVal bNoSubformScroll As Boolean = False, Optional ByVal blIsGlobal As Boolean = False) As Boolean
#Else
Private Declare Function StopMouseWheel Lib "MouseHook" _
(ByVal hwnd As Long, ByVal AccessThreadID As Long, _
Optional ByVal bNoSubformScroll As Boolean = False, Optional ByVal blIsGlobal As Boolean = False) As Boolean
#End If
#If VBA7 Then
Private Declare PtrSafe Function StartMouseWheel Lib "MouseHook" _
(ByVal hwnd As Long) As Boolean
#Else
Private Declare Function StartMouseWheel Lib "MouseHook" _
(ByVal hwnd As Long) As Boolean
#End If
#If VBA7 Then
Private Declare PtrSafe Function GetCurrentThreadId Lib "kernel32" () As Long
#Else
Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
#End If
' Instance returned from LoadLibrary call
Private hLib As Long
I am trying to convert 32bit code to 64bit code, but I do not know if I wrote wrong code, or if dll file is not correct.
If this code looks right, where can I download the dll file for 64 bit?
Thank you!