دوست عزیز من به این مشکل بر خوردم و کلی باهاش کلنجار رفتم در نهایت به لطف آقای امیری عزیز تونستم راه حلش رو پیدا کنم
به این روش عمل کن تویه همه خطهای برنامت که گزینه Function هست گزینه Ptrsafe رو قبل از اون اضافه کن و هر جا گزینه Long رو دیدی بنویس LongLong به طور کلی اینطوری میشه
If Windows = 32bit Then
Private Declare Function WM_apiIsZoomed Lib "user32.dll" Alias "IsZoomed" _
(ByVal hwnd As Long) As Long
Else
Private Declare Ptrsafe Function WM_apiIsZoomed Lib "user32.dll" Alias "IsZoomed" _
(ByVal hwnd As LongLong) As LongLong
البته یادم رفتا بگم تویه ویندوزهای مختلف فرق میکنه اون IF اولش