VB - registro Windows: dove sono? (98, 2000, XP,...)

[Gugu]

Mi è già capitato..
Io ho fatto così:

VersioneOS = GetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductName")
If VersioneOS = "" Then
   VersioneOS = GetRegistryValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
End If

Non credo ci sia una chiave che vada bene per tutti i SO.

Sono sicuro che così copri:
95/98/2000/2000 SERVER/ME/XP

Ciao
Andrea