With mirrorGeometryModel3d
            .Geometry = OB_CD_Huelle.Geometry
 
            'Material Transparenz
          [u] Dim mat As DiffuseMaterial = DirectCast(OB_CD_Huelle.Material, _
            DiffuseMaterial)
            Dim matClone As New DiffuseMaterial
            matClone = mat.Clone 
            Dim br As SolidColorBrush = DirectCast(mat.Brush, SolidColorBrush)
            Dim brClone As SolidColorBrush = br.Clone
            matClone.Brush = brClone
            matClone.Brush.Opacity = 0.05
            .BackMaterial = matClone
            .Material = matClone
 
            mirrorModel3dGroup.Children.Add(mirrorGeometryModel3d)
 End With

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.