Private Declare Function GetVersion Lib "kernel32" () As LongConst HKEY_LOCAL_MACHINE = &H80000002' Return the name of the registered organization'' Requires the GetRegistryValue functionFunction GetRegisteredOrganization() 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 GetRegisteredOrganization = GetRegistryValue(HKEY_LOCAL_MACHINE, regKey, _ "RegisteredOrganization", "")End Function


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many