プラットフォームのIDにつきまして

環境/言語:[(Windows98, XP)]
分類:[VB6以前]

度々、お世話になります。

プラットフォームのIDにつきまして (開発言語　VB6.0)

Windows 7・Windows Vista各プラットフォーム のIDの数字は
いくつになりますでしょうか。
ご教示を願えますと幸いです。宜しくお願い致します。

'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
　　　 Dim LPVERSIONINFORMATION As OSVERSIONINFO
Dim WIDE_USE As Long
Dim ビルド番号 As Long
Dim OSBUILD As Long

' 構造体を初期化

　 LPVERSIONINFORMATION.dwOSVersionInfoSize = Len(LPVERSIONINFORMATION)
　 WIDE_USE = Api_GetVersionEx(LPVERSIONINFORMATION)
　 ビルド番号 = LPVERSIONINFORMATION.dwBuildNumber
　 プラットフォームのID = LPVERSIONINFORMATION.dwPlatformId

'プラットフォームのID
'0　→　Windos 3ｘ
'1　→　Windows 9ｘ ME
'2　→　WindowsNT,2000,XP
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'

大変申し訳ありませんでした。
下記のWebに記載されていました。
http://lhsp.s206.xrea.com/hsp_system.html
Windows 7・Windows VistaはWindowsNT,2000,XPと同じ「2」でした。