................................


' Neues Parameter Set erzeugen unter dem vorhandenen Set

    Set parameters1 = part1.Parameters
 
    Dim ParameterSet1 As ParameterSet
    Set ParameterSet1 = parameters1.RootParameterSet
 
    Dim parameterSets1 As ParameterSets
    Set parameterSets1 = ParameterSet1.ParameterSets
        
    parameterSets1.CreateSet ("Lokale_Parameter")
    Dim Lokale_Parameter_Set As ParameterSet
    Set Lokale_Parameter_Set = parameterSets1.Item("Lokale_Parameter")
    
    
    Dim parameters2 As Parameters
    Set parameters2 = Lokale_Parameter_Set.DirectParameters

    
' Test Parameter anlegen
    Dim length100 As length
    Set length100 = parameters2.CreateDimension("`Länge.1`", "LENGTH", 0#)

    length100.Rename "`Parameter_Sepp_Maier`"

    length100.Value = 30#


...........