Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByRef phkResult As Integer) As Integer
    Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Integer) As Integer
    Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal lpReserved As Integer, ByVal lpType As Integer, ByVal lpData As String, ByRef lpcbData As Integer) As Integer
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim result As String
        Dim lres As Integer
        Dim length As Integer
        Dim hkey As Integer
        Dim subkey As String
        Dim retval As Integer
        subkey = "HARDWARE\DESCRIPTION\System\CentralProcessor\0"
        retval = RegOpenKey(&H80000002, subkey, hkey)
        result = Space(1024)
        length = Len(result)
        lres = RegQueryValueEx(hkey, "VendorIdentifier", 0, 0, result, length)
        retval = RegCloseKey(hkey)
        TextBox2.Text = result