Dim strOS As String = System.Environment.OSVersion.ToString
If strOS.IndexOf("Windows") > 0 Then
MessageBox.Show("Windows")
ElseIf strOS.IndexOf("Linux") > 0 Then    'Ist das richtig ?
MessageBox.Show("Linux")
ElseIf strOS.IndexOf("Apple") > 0 Then     'Ist das richtig ?
MessageBox.Show("Apple")
Else
MessageBox.Show(System.Environment.OSVersion.ToString)
End If
 
Dim strFramework As String = System.Environment.Version.ToString
 
If strFramework = "1.0.3705.0" Then
MessageBox.Show(".NET 1.0")
ElseIf strFramework = "1.1.4322.0" Then
MessageBox.Show(".NET 1.1")
ElseIf strFramework = "1.1.4322.573" Then 
MessageBox.Show("Mono 1.1.4")
'Unterscheidet sich Mono von .NET nur durch die letzte 573 ?
Else
MessageBox.Show(System.Environment.Version.ToString)
End If