Removing Features Using VBA

Hello,

I am trying to remove features from some linear forms in a DGN 3D-model using VBA, but I cannot figure out how to remove these features, I tried to suppress, and move the features but nothing occurs, any one has any idea , and thanks in advance

here is the code

Sub DeleteOpennings()

Dim ce As Element
Dim ee As ElementEnumerator

Dim flist As TFFeatureList
Dim formrecipe As TFFormRecipe

Dim tfrecipelist As New TFFormRecipeList

Set ee = ActiveModelReference.GetSelectedElements

While ee.MoveNext
    Set ce = ee.Current

wend

    tfrecipelist.InitFromElement ce
    Set flist = tfrecipelist.AsTFFormRecipe.GetFeatureList()
    flist.AsTFFeature.SetSuppressed (True)

End Sub