Try
 
            Dim strFW As String = System.Environment.Version.ToString       _
              'Framework Version
            Dim strFramework As String
 
            Dim t As Type = GetType(System.Int32)
 
            strFramework = t.Assembly.CodeBase          'Pfad zur MSCORLIB.DLL
 
            If strFramework.IndexOf("mono") > 1 Then    'Wenn Mono enthalten
                strFramework = "Mono "
            Else
                strFramework = ".NET "
            End If
 
            strFramework = strFramework + strFW.Substring(0, 3)     _
              'Versionsnummer anfügen
 
            Return strFramework
 
        Catch ex As Exception
         ...
        End Try