Переделать VB6 скрипт x32 с поддержкой в x64 системе

Option Explicit
'API-функция получения дескриптора окна
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
        (ByVal lpszClassName As String, ByVal lpszWindow As String) As Long
'API-функция установки позиции окна
Private Declare Function SetWindowPos Lib "user32" _
        (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
        ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'API-функция определения горячих кнопок
Private Declare Function RegisterHotKey Lib "user32" _
        (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, _
        ByVal vk As Long) As Long
 
'получаем дескриптор
Public Function GetHandle(ByVal strCaption As String) As Long
    GetHandle = FindWindow(vbNullString, strCaption)
End Function
 
'устанавливаем окно поверх всех
Public Sub SetTop(ByVal strCaption As String)
   SetWindowPos FindWindow(vbNullString, strCaption), -1, 0, 0, 0, 0, 3
End Sub
 
'запрещаем использование Alt+F4
Public Sub DenyAltF4(ByVal strCaption As String)
   RegisterHotKey FindWindow(vbNullString, strCaption), 99, 1, &H73
End Sub

#if win64 then
..
#else
..
#endif