For Each assn In ass.GetReferencedAssemblies
                Dim strEintrag As String = assn.FullName
 
                If strEintrag.IndexOf("Shell32") > -1 Then
                    If assn.FullName.IndexOf("PublicKeyToken") > -1 Then
                        MessageBox.Show(".NET")
                    Else
                        MessageBox.Show("Mono")
                    End If
                End If
 
            Next assn