Private Const PROCESSOR_ALPHA_21064 As Long = 21064
Private Const PROCESSOR_ARCHITECTURE_ALPHA As Long = 2
Private Const PROCESSOR_ARCHITECTURE_ALPHA64 As Long = 7
Private Const PROCESSOR_ARCHITECTURE_ARM As Long = 5
Private Const PROCESSOR_ARCHITECTURE_IA64 As Long = 6
Private Const PROCESSOR_ARCHITECTURE_INTEL As Long = 0
Private Const PROCESSOR_ARCHITECTURE_MIPS As Long = 1
Private Const PROCESSOR_ARCHITECTURE_MSIL As Long = 8
Private Const PROCESSOR_ARCHITECTURE_PPC As Long = 3
Private Const PROCESSOR_ARCHITECTURE_SHX As Long = 4
Private Const PROCESSOR_ARCHITECTURE_UNKNOWN As Long = &HFFFF&
Private Const PROCESSOR_ARM_7TDMI As Long = 70001
Private Const PROCESSOR_ARM720 As Long = 1824
Private Const PROCESSOR_ARM820 As Long = 2080
Private Const PROCESSOR_ARM920 As Long = 2336
Private Const PROCESSOR_HITACHI_SH3 As Long = 10003
Private Const PROCESSOR_HITACHI_SH3E As Long = 10004
Private Const PROCESSOR_HITACHI_SH4 As Long = 10005
Private Const PROCESSOR_INTEL_386 As Long = 386
Private Const PROCESSOR_INTEL_486 As Long = 486
Private Const PROCESSOR_INTEL_IA64 As Long = 2200
Private Const PROCESSOR_INTEL_PENTIUM As Long = 586
Private Const PROCESSOR_INTEL_PENTIUM2 As Long = 686
Private Const PROCESSOR_INTEL_PENTIUM3 As Long = 786
Private Const PROCESSOR_MIPS_R4000 As Long = 4000
Private Const PROCESSOR_MOTOROLA_821 As Long = 821
Private Const PROCESSOR_OPTIL As Long = &H494F
Private Const PROCESSOR_PPC_601 As Long = 601
Private Const PROCESSOR_PPC_603 As Long = 603
Private Const PROCESSOR_PPC_604 As Long = 604
Private Const PROCESSOR_PPC_620 As Long = 620
Private Const PROCESSOR_SHx_SH3 As Long = 103
Private Const PROCESSOR_SHx_SH4 As Long = 104
Private Const PROCESSOR_STRONGARM As Long = 2577

Private Type SYSTEM_INFO
dwOemID As Long
dwPageSize As Long
lpMinimumApplicationAddress As Long
lpMaximumApplicationAddress As Long
dwActiveProcessorMask As Long
dwNumberOrfProcessors As Long
dwProcessorType As Long
dwAllocationGranularity As Long
dwReserved As Long
End Type

Private Declare Sub GetSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO)

Private Function GetProcessorType() As String
Dim SystemInfo As SYSTEM_INFO
GetSystemInfo SystemInfo
Select Case SystemInfo.dwProcessorType
    Case PROCESSOR_ALPHA_21064
        GetProcessorType = "Alpha 21604"
    Case PROCESSOR_ARCHITECTURE_ALPHA
        GetProcessorType = "ARCHITECTURE_ALPHA"
    Case PROCESSOR_ARCHITECTURE_ALPHA64
        GetProcessorType = "ARCHITECTURE_ALPHA64"
    Case PROCESSOR_ARCHITECTURE_ARM
        GetProcessorType = "ARCHITECTURE_ARM"
    Case PROCESSOR_ARCHITECTURE_IA64
        GetProcessorType = "ARCHITECTURE_IA64"
    Case PROCESSOR_ARCHITECTURE_INTEL
        GetProcessorType = "ARCHITECTURE_INTEL"
    Case PROCESSOR_ARCHITECTURE_MIPS
        GetProcessorType = "ARCHITECTURE_MIPS"
    Case PROCESSOR_ARCHITECTURE_MSIL
        GetProcessorType = "ARCHITECTURE_MSIL"
    Case PROCESSOR_ARCHITECTURE_PPC
        GetProcessorType = "ARCHITECTURE_PPC"
    Case PROCESSOR_ARCHITECTURE_SHX
        GetProcessorType = "ARCHITECTURE_SHX"
    Case PROCESSOR_ARCHITECTURE_UNKNOWN
        GetProcessorType = "ARCHITECTURE_UNKNOWN"
    Case PROCESSOR_ARM_7TDMI
        GetProcessorType = "ARM_7TDMI"
    Case PROCESSOR_ARM720
        GetProcessorType = "ARM720"
    Case PROCESSOR_ARM820
        GetProcessorType = "ARM820"
    Case PROCESSOR_ARM920
        GetProcessorType = "ARM920"
    Case PROCESSOR_HITACHI_SH3
        GetProcessorType = "HITACHI_SH3"
    Case PROCESSOR_HITACHI_SH3E
        GetProcessorType = "HITACHI_SH3E"
    Case PROCESSOR_HITACHI_SH4
        GetProcessorType = "HITACHI_SH4"
    Case PROCESSOR_INTEL_386
        GetProcessorType = "Intel 80386"
    Case PROCESSOR_INTEL_486
        GetProcessorType = "Intel 80486"
    Case PROCESSOR_INTEL_IA64
        GetProcessorType = "IA64"
    Case PROCESSOR_INTEL_PENTIUM
        GetProcessorType = "Intel Pentium"
    Case PROCESSOR_INTEL_PENTIUM2
        GetProcessorType = "INTEL_PENTIUM2"
    Case PROCESSOR_INTEL_PENTIUM3
        GetProcessorType = "INTEL_PENTIUM3"
    Case PROCESSOR_MOTOROLA_821
        GetProcessorType = "MOTOROLA_821"
    Case PROCESSOR_OPTIL
        GetProcessorType = "OPTIL"
    Case PROCESSOR_PPC_601
        GetProcessorType = "PPC_601"
    Case PROCESSOR_PPC_603
        GetProcessorType = "PPC_603"
    Case PROCESSOR_PPC_604
        GetProcessorType = "PPC_604"
    Case PROCESSOR_PPC_620
        GetProcessorType = "PPC_620"
    Case PROCESSOR_SHx_SH3
        GetProcessorType = "SHx_SH3"
    Case PROCESSOR_SHx_SH4
        GetProcessorType = "SHx_SH4"
    Case PROCESSOR_STRONGARM
        GetProcessorType = "STRONGARM"
    Case PROCESSOR_MIPS_R4000
        GetProcessorType = "MIPS"
    Case Else
        GetProcessorType = "(UNKNOWN)"
End Select
End Function