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?哪位大哥看到请帮帮忙 --------------------编程问答--------------------

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

【操作系统】
Win9X:Yes
WinNT:Yes
【说明】
  在一个OSVERSIONINFO结构中载入与平台和操作系统有关的版本信息 
【返回值】
  Long，非零表示成功，零表示失败 
【其它】
【参数表】
  lpVersionInformation -  OSVERSIONINFO，用于装载版本信息的结构。在正式调用函数之前，必须先将这个结构的dwOSVersionInfoSize字段设为结构的大小（148）
--------------------编程问答-------------------- 参考:
http://www.oschina.net/code/snippet_54100_5403 --------------------编程问答-------------------- 取得岂今为止最全面的Windows版本和IE版本以及32位和64位操作系统信息
http://blog.csdn.net/chenjl1031/article/details/6320254

补充：VB ,  API