Visual Basic - Que S.O. tengo Instalado???

¿Cómo podría saber desde VB si tengo instalado Windows 98 , NT o 2000?

Gracias

Con esta API se hace:

GetVersionEx (Devuelve la versión del Windows)
Devuelve información sobre la versión del Windows

´Código para el Modulo
Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Const PLATAFORMA_WIN32_NT& = 2
Public Const PLATAFORMA_WIN32_WINDOWS& = 1

´Código para el procedimiento
´Definimos las variables
Dim Version As OSVERSIONINFO
Dim CadenaResultante As Long
Dim x As Long

Version.dwOSVersionInfoSize = Len(Version)

CadenaResultante = GetVersionEx(Version)

´mostramos el resultado
If Version.dwPlatformId = PLATAFORMA_WIN32_NT Then Print "Windows NT"
If Version.dwPlatformId = PLATAFORMA_WIN32_WINDOWS Then Print "Windows 95/98"
x = InStr(Version.szCSDVersion, Chr(0))
Print Version.dwMajorVersion & "." & Version.dwMinorVersion & Left(Version.szCSDVersion, x - 1)

Un saludo