Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Modify the name of the registered user and organization'' Requires the SetRegistryValue functionSub SetRegisteredUser(ByVal UserName As String, Optional ByVal Organization As _ String) Dim regKey As String ' this information is held in a Registry key whose path ' depends on the operating system installed If GetVersion() >= 0 Then ' this is a Windows NT system regKey = "SoftwareMicrosoftWindows NTCurrentVersion" Else ' this is a Win9x system regKey = "SoftwareMicrosoftWindowsCurrentVersion" End If If Len(UserName) Then SetRegistryValue HKEY_LOCAL_MACHINE, regKey, "RegisteredOwner", UserName End If If Len(Organization) Then SetRegistryValue HKEY_LOCAL_MACHINE, regKey, "RegisteredOrganization", _ Organization End If End Sub

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job