With mirrorImageGeometryModel3d
 
            .Geometry = OB_CD_Huelle_001.Geometry
            .Material = OB_CD_Huelle_001.Material
            .BackMaterial = OB_CD_Huelle_001.BackMaterial
 
 
            'Material Transparenz
            Dim mat As DiffuseMaterial = DirectCast(OB_CD_Huelle_001.Material, _
              DiffuseMaterial)
            Dim br As ImageBrush = DirectCast(mat.Brush, ImageBrush)
 
            br.Opacity = 0.1
 
            mat.Brush = br
            .BackMaterial = mat
            .Material = mat
 
            mirrorModel3dGroup.Children.Add(mirrorImageGeometryModel3d)
        End With

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

May the source code be with you.