1: Public Function GetOSVersion() As String

   2:     Select Case Environment.OSVersion.Platform

   3:         Case PlatformID.Win32S

   4:             Return "Win 3.1"

   5:         Case PlatformID.Win32Windows

   6:             Select Case Environment.OSVersion.Version.Minor

   7:                 Case 0

   8:                     Return "Win95"

   9:                 Case 10

  10:                     Return "Win98"

  11:                 Case 90

  12:                     Return "WinME"

  13:                 Case Else

  14:                     Return "Unknown"

  15:             End Select

  16:         Case PlatformID.Win32NT

  17:             Select Case Environment.OSVersion.Version.Major

  18:                 Case 3

  19:                     Return "NT 3.51"

  20:                 Case 4

  21:                     Return "NT 4.0"

  22:                 Case 5

  23:                     Select Case _

  24:                         Environment.OSVersion.Version.Minor

  25:                         Case 0

  26:                             Return "Win2000"

  27:                         Case 1

  28:                             Return "WinXP"

  29:                         Case 2

  30:                             Return "Win2003"

  31:                     End Select

  32:                 Case 6

  33:                     Return "Vista/Win2008Server"

  34:                 Case Else

  35:                     Return "Unknown"

  36:             End Select

  37:         Case PlatformID.WinCE

  38:             Return "Win CE"

  39:     End Select

  40: End Function