Private Sub CreateMirror()
        Dim mirrorGeometryModel3d As New GeometryModel3D
        Dim mirrorImageGeometryModel3d As New GeometryModel3D
 
        Dim mirrorModel3dGroup As New Model3DGroup
        Dim mirrorTranslateTransform3D As New TranslateTransform3D
        Dim mirrorScaleTransform3D As New ScaleTransform3D
        Dim mirrorTransform3DGroup As New Transform3DGroup
 
        With mirrorGeometryModel3d
            .Geometry = OB_CD_Huelle.Geometry
            .Material = OB_CD_Huelle.Material
            .BackMaterial = OB_CD_Huelle.BackMaterial
            mirrorModel3dGroup.Children.Add(mirrorGeometryModel3d)
        End With
 
        With mirrorImageGeometryModel3d
            .Geometry = OB_CD_Huelle_001.Geometry
            .Material = OB_CD_Huelle_001.Material
            .BackMaterial = OB_CD_Huelle_001.BackMaterial
            mirrorModel3dGroup.Children.Add(mirrorImageGeometryModel3d)
        End With
 
        With mirrorTranslateTransform3D
            .OffsetX = 0
            .OffsetY = 0
            .OffsetZ = 0
            mirrorTransform3DGroup.Children.Add(mirrorTranslateTransform3D)
        End With
 
 
        With mirrorScaleTransform3D
            .ScaleX = 1
            .ScaleY = 1
            .ScaleZ = -0.7
        End With
        mirrorTransform3DGroup.Children.Add(mirrorScaleTransform3D)
 
 
        mirrorModel3dGroup.Transform = mirrorTransform3DGroup
 
 
        MyCover.Children.Add(mirrorModel3dGroup)
    End Sub

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

May the source code be with you.