请教怎样判断是98,2000,还是XP??谢谢~!

'*** 获取操作系统版本Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformID As Long szCSDVersion As String * 128End Type'**********宣告共有变量Public vertype As String, fname As String, osname As StringPublic midstr As String'**********程序开始Private Sub Form_Activate() Call getversion '得到操作系统版本 Select Case vertype Case "1" fname = "Windows 2000" Case "2" fname = "Windows NT4.0" Case "3" fname = "Windows XP" Case "4" fname = "Windows 95" Case "5" fname = "Windows 98" Case "6" fname = "Windows Me" Case "7" fname = "不管它了..." End Select MsgBox fnameEnd SubPublic Sub getversion() '操作系统版本 Dim RetVal As Long, osname As String Dim OSInfo As OSVERSIONINFO RetVal = GetVersionEx(OSInfo) OSInfo.dwOSVersionInfoSize = 148 OSInfo.szCSDVersion = Space(128) RetVal = GetVersionEx(OSInfo) Select Case OSInfo.dwPlatformID Case VER_PLATFORM_WIN32s osname = "Windows 3.1" Case VER_PLATFORM_WIN32_WINDOWS osname = "Windows 98" Case VER_PLATFORM_WIN32_NT osname = "Windows NT" End Select midstr$ = osname & "(" & OSInfo.dwMajorVersion & "." & OSInfo.dwMinorVersion & ")" If InStr(midstr$, "5.0") Then vertype = "1" ElseIf InStr(midstr$, "4.0") Then vertype = "2" ElseIf InStr(midstr$, "5.1") Then vertype = "3" ElseIf InStr(midstr$, "95") Then vertype = "4" ElseIf InStr(midstr$, "98") Then vertype = "5" ElseIf InStr(midstr$, "Me") Then vertype = "6" Else vertype = "7" End IfEnd Sub