This code is from API-Guide
Code:
Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
    Dim Ver As Long, WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    'retrieve the windows version
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed")
End Function
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    MsgBox "Windows version: " + GetWinVersion
End Sub
Problem is, what number does it return on the following OSes:
Windows 95 =
Windows 95 w/USB support =
Windows 98 =
Windows 98 SE =
Windows ME =
Windows NT =
Windows 2k =
Windows XP = 5.01 (what mine returned, is it same for home and pro?)

If somebody runs any version shown above, can you please run the code and post a reply with your windows version and the number it gave. If i missed any windows version, sorry about that, but I don't think I did.