ciao Alfonso,
devi utilizzare la compilazione condizionale in modo da individuare correttamente l'ambiente se a 32 o 64 bit.
il link spiega come fare.
in pratica vedo che utilizzi ad esempio l'API GETDC
nel modulo dove avrai tutte le dichiarazioni Api avrai quindi :
#if vba 7 then
Private Declare PtrSafe Function GetDC
Lib "USER32" (ByVal hWnd
As LongPtr) As LongPtr
#else
Private Declare
Function GetDC Lib "USER32" (ByVal hWnd
As Long)
As Long
#end if
nel momento in cui necessiti di farti restituire un valore dalla funzione suddetta lo stesso, perché l'handle è sempre LongPtr
#If vba7 Then
Dim lngDC As LongPtr
#Else
Dim lngDCAs As Long
#End IfmyHandle =GetDC(hwnd_desktop)
la dichiarazione generica ed in alcuni casi necessaria :
#If VBA7 Then
#If Win64 Then
......
#End If
#Else
.....
#End If
E' un po' difficilotto....
Ciao, Sandro.