Introduction - If you have any usage issues, please Google them yourself
OSVersion = CSng(GetOSVersion.osvOSVerMajor & "." & GetOSVersion.osvOSVerMinor)
Select Case GetOSVersion.osvOSName
Case 0 Windows 32s
OS = "Win32"
Case 1 Windows 95/98
Select Case OSVersion
Case 4: OS = "Win 95"
Case 4.1: OS = "Win 98"
Case 4.9: OS = "Wim Me"
End Select
Case 2 Windows NT
Select Case OSVersion
Case 4: OS = "Win NT"
Case 5#: OS = "Win 2000"
Case 5.1: OS = "Win XP"
End Select
End Select