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


10 Productivity Hacks to Supercharge Your Business in 2023
Picture this: your team working seamlessly, completing tasks efficiently, and achieving goals with ease. Sounds like too good to be true? Not at all! With our productivity hacks, you can