örnek kod aşağıdadır kendi kodlarınıza göre düzenleyebilirsiniz?
#If VBA7 And Win64 Then '64 bit için
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Declare PtrSafe Function diğer 64.........
' 64.........
#Else '32 bit için
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
'diğer 32'likler......
'........
#End If