Public Function GetOSVersion() As String
        Dim oSystem As OperatingSystem = Environment.OSVersion
        Dim oVersion As Version = oSystem.Version
        Dim sPlatform As String
 
        If oSystem.Platform = PlatformID.Win32NT Then
            ' WinNT / 2000 / XP
            Select Case oVersion.Major
                Case 3
                    sPlatform = IIf(oVersion.Minor = 51, "WinNT3.51", "WinNT3")
                Case 4
                    sPlatform = "WinNT4"
                Case 5
                    sPlatform = IIf(oVersion.Minor = 0, "Windows 2000", _
                      "Windows XP")
            End Select
 
        ElseIf oSystem.Platform = PlatformID.Win32Windows Then
            ' Win 95 / 98 / ME
            Select Case oVersion.Minor
                Case 0
                    sPlatform = "Windows 95"
                Case 10
                    sPlatform = "Windows 98"
                Case "90"
                    sPlatform = "Windows ME"
            End Select
        End If
 
        GetOSVersion = sPlatform
    End Function