Foro de elhacker.net

Esque necesito saber como mostrar en un msgbox el sistema operativo utilizado en vb 6.
El problema esk e visto codigos pero solo muestran si es como muxo un XP no hay ningun codigo que sea asta 7.. y QUERIA saber como añadir a esos codigos el vista y el win7
gracias!!!
un saludo!!

 
option explicit
 
private Declare Function RtlGetVersion Lib "NTDLL" (ByRef lpVersionInformation As Long) As Long
Public Function NativeGetVersion() As String
    Dim tOSVw(&H54)     As Long
    tOSVw(0) = &H54 * &H4
    Call RtlGetVersion(tOSVw(0))
    NativeGetVersion = Join(Array(tOSVw(4), tOSVw(1), tOSVw(2)), ".")
End Function
 
Public Function VersionToName(ByRef sVersion As String) As String
    Select Case sVersion
        Case "1.0.0":     VersionToName = "Windows 95"
        Case "1.1.0":     VersionToName = "Windows 98"
        Case "1.9.0":     VersionToName = "Windows Millenium"
        Case "2.3.0":     VersionToName = "Windows NT 3.51"
        Case "2.4.0":     VersionToName = "Windows NT 4.0"
        Case "2.5.0":     VersionToName = "Windows 2000"
        Case "2.5.1":     VersionToName = "Windows XP"
        Case "2.5.3":     VersionToName = "Windows 2003 (SERVER)"
        Case "2.6.0":     VersionToName = "Windows Vista"
        Case "2.6.1":     VersionToName = "Windows 7"
        Case Else:        VersionToName = "Unknown"
    End Select
End Function
 
 

Ejemplo:

 
    Call MsgBox(VersionToName(NativeGetVersion))
 
 

Sangriento Infierno Lunar!¡.

Gracias!!! tio!!!
un abrazo!!