REM Beispiel : DotNet : Ausgabe von Versionsinformationen REM DE : SharpDevelop : Version 1.0 Build : 33919.1129 REM Plattform : Windows 98 Imports System Imports System.Windows.Forms Class MyApplication Shared Sub Main MessageBox.Show(GetOSVersion(2), Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub Shared Function GetOSVersion(ByVal Index As Short) As String Dim ev As Environment 'Versionsnummer Dim oVersion As String = ev.OSVersion.Version.ToString 'Komplette Versionsausgabe Dim strVersion As String = ev.OSVersion.ToString 'Major Version Dim oMajorVersion As String = ev.Version.Major.ToString 'Minor Version Dim oMinorVersion As String = ev.Version.Minor.ToString 'Revision Dim oRevision As String = ev.Version.Revision.ToString 'Build Dim oBuild As String = ev.Version.Build.ToString Dim Result As String ' Select Case Index Case 1 Result = oVersion Case 2 Result = strVersion Case 3 Result = oMajorVersion Case 4 Result = oMinorVersion Case 5 Result = oRevision Case 6 Result = oBuild End Select GetOSVersion = Result End Function End Class