Imports System.Runtime.InteropServices
 
    <DllImport("kernel32.dll", SetLastError:=True, _
      CallingConvention:=CallingConvention.Winapi)> _
    Public Function IsWow64Process( _
        ByVal hProcess As Long, _
        ByRef Wow64Process As Boolean) As Long
    End Function
    Private Function Is64BitOperatingSystem() As Boolean
        If IntPtr.Size = 8 Or IntPtr.Size = 4 And _
          Is32BitProcessOn64BitProcessor() Then
            Return True
        Else
            Return False
        End If
    End Function
    Private Function Is32BitProcessOn64BitProcessor() As Boolean
        Dim RetVal As Boolean
        IsWow64Process(Process.GetCurrentProcess().Handle, RetVal)
        Return RetVal
    End Function