vb中用getversionex（获得版本号）

程序运行后得到与版本相关的数据，其中操作版本标识以数值的形式反映在结构变量osinfo.dwplatformid之中。
select case osinfo.dwplatformid
case 0
v="windows 32s"
case 1
v="windows 98"
case 2
v="windows nt"
请问，windows xp\win7是怎么表示的呢? 难道是case 3 4?哪位大哥看到请帮帮忙

VB code

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long

【操作系统】
Win9X:Yes
WinNT:Yes
【说明】
  在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息 
【返回值】
  Long，非零表示成功，零表示失败 
【其它】
【参数表】
  lpVersionInformation - OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）