Ovo
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Izmeni u ovo:
Private Declare PtrSafe Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
To ti je rešenje za prvu deklaraciju.
Za drugu deklaraciju ne mogu da nađem gotovo rešenje na netu.
Probaj malo da izvrtiš tu drugu deklaraciju dok ne dobiješ pravi oblik koristeći ova pravila:
https://docs.microsoft.com/en-...asic-for-applications-overview