Code:
            Dim ref(50) As Reference
            Dim Radius1 As ConstRadEdgeFillet
            Dim z As CatFilletEdgePropagation
            Dim i As Integer
            Dim kantenzaehler As Integer
            mysel = CATIA.ActiveDocument.Selection
            mysel.Clear()
            mysel.Search("Topology.CGMEdge,all")
            kantenzaehler = mysel.Count
            Radius1 = Shapefactory1.AddNewSolidEdgeFilletWithConstantRadius(Nothing, z, 2.0)
            For i = 1 To kantenzaehler
                ref(i) = mysel.Selection.Item(i).Value
                Radius1.AddObjectToFillet(ref(i))
                Radius1.EdgePropagation = z
            Next
            mysel.Clear()
            MyPart.Update()