Case Select Typ Case = "Typ 1" Parameter("Wheel:1", "Diameter") = 60 iProperties.MaterialOfComponent("Wheel:1")="Steel" Parameter("Bolt_A:1", "Length") = 66 Parameter("Bolt_B:1", "Length") = 73 Parameter("Bolt_C:1", "Length") = 73 ThreadLength = 0 Component.IsActive("Retaining Ring:1") = False Component.IsActive("Retaining Ring:2") = False Component.IsActive("Retaining Ring:3") = False Component.IsActive("Retaining Ring:4") = False Case = "Typ 2" Parameter("Wheel:1", "Diameter") = 67 iProperties.MaterialOfComponent("Wheel:1")="ABS Plastic" Parameter("Bolt_A:1", "Length") = 96 Parameter("Bolt_B:1", "Length") = 103 Parameter("Bolt_C:1", "Length") = 103 ThreadLength = 10 Component.IsActive("Retaining Ring:1") = True Component.IsActive("Retaining Ring:2") = True Component.IsActive("Retaining Ring:3") = True Component.IsActive("Retaining Ring:4") = True End Select