Private Sub cmdInfo_Click()

Print "Number of CPUs: " & Environ$("NUMBER_OF_PROCESSORS")
Print "Processor Architecture: " & Environ$("PROCESSOR_ARCHITECTURE")
Print "Processor Identifier: " & Environ$("PROCESSOR_IDENTIFIER")
Print "Processor Level: " & Environ$("PROCESSOR_LEVEL")
Print "Processor Revision: " & Environ$("PROCESSOR_REVISION")

End Sub