This code will let you know what type of processor you have on your system.

=============================================================
'Declarations:

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

Public Enum etProcessorType
PROCESSOR_INTEL_386 = 386
PROCESSOR_INTEL_486 = 486
PROCESSOR_INTEL_PENTIUM = 586
PROCESSOR_MIPS_R4000 = 4000
PROCESSOR_ALPHA_21064 = 21064
End Enum


Private m_typSystemInfo As SYSTEM_INFO
Code:


Public Function ProcessorType() As etProcessorType
'See declarations for meaning of returned values
GetSystemInfo m_typSystemInfo
ProcessorType = m_typSystemInfo.dwProcessorType
End Function