' Return a collection of strings that identify the installed versions of the ' .NET Framework' Note: this function require the EnumRegistryKeys and EnumRegistryValues ' functions' Example:' Dim version As Variant' For Each version In GetDotNetFrameworkVersions' Debug.Print version' NextFunction GetDotNetFrameworkVersions() As Collection Const HKEY_LOCAL_MACHINE = &H80000002 Dim keyName As String keyName = "SoftwareMicrosoft.NETFrameworkpolicy" Set GetDotNetFrameworkVersions = New Collection Dim versions As Collection, version As Variant ' get the collection of major.minor versions Set versions = EnumRegistryKeys(HKEY_LOCAL_MACHINE, keyName) Dim builds As Collection, build As Variant ' for each version, get the installed builds, and finally get the complete ' version string For Each version In versions Set builds = EnumRegistryValues(HKEY_LOCAL_MACHINE, _ keyName & "" & version) For Each build In builds GetDotNetFrameworkVersions.Add (Mid(version, 2) & "." & build(0)) Next NextEnd Function

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