Module Module1

  'Process and Thread Functions
  Public Declare Function IsWow64Process Lib "kernel32" (ByVal hProcess As IntPtr, _
   ByRef Wow64Process As Boolean) As Boolean

  'Dynamic-Link Library Functions
  Public Declare Unicode Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleW" _
   (ByVal lpModuleName As String) As IntPtr
  Public Declare Function GetProcAddress Lib "kernel32" _
   (ByVal hModule As IntPtr, ByVal lpProcName As String) As IntPtr 'Unicode здесь нельзя

  Public Function Is64bit() As Boolean
    If (IntPtr.Size = 8) Then Return True

    ' Assume initially that this is not a Wow64 process
    Dim bolFunc As Boolean = False

    ' Now check to see if IsWow64Process function exists
    Dim handle As IntPtr = GetProcAddress(GetModuleHandle("kernel32"), _
     "IsWow64Process")

    If handle <> IntPtr.Zero Then ' IsWow64Process function exists
      ' Now use the function to determine if
      ' we are running under Wow64
      IsWow64Process(Process.GetCurrentProcess.Handle, bolFunc)
    End If

    Is64bit = bolFunc

  End Function

End Module