Imports System
Public Class Program
Public Shared Sub Main()
Dim os As OperatingSystem = Environment.OSVersion
Dim pid As PlatformID = os.Platform
Select Case pid
Case PlatformID.Win32NT, PlatformID.Win32S, PlatformID.Win32Windows, PlatformID.WinCE
Console.WriteLine("Windows operating system")
Case PlatformID.Unix
Console.WriteLine("Unix operating system")
Case Else
Console.WriteLine("Invalid identifier")
End Select
End Sub
End Class
' run:
'
' Windows operating system
'