Not able to list the featuredefinitions.

Hi

I have tried both examples from the Bentley Map XFM prommers Reference Guide:

Private Sub ProcessFeatureDefinitions()
        
    Dim featureDefCount As Long
    featureDefCount = xft.FeatureMgr.FeatureDefCount    
        
    Dim featureDefIndex As Long
    For featureDefIndex = 0 To (featureDefCount - 1)
        
        Dim oFeatureDef As FeatureDef
        Set oFeatureDef = xft.FeatureMgr.GetFeatureDefinitionByIndex (featureDefIndex)

        Dim numProperties As Long
        numProperties = oFeatureDef.PropertyCount
    Next
End Sub

This one ends with a runtime error allthough I can se that featureDefCount is set to the actual numbers of FeatureClasses 
present in the design fil!! 


Sub ProcessFeatureDefs
    Dim featureName As String
    Dim loadProperties As Boolean
    Dim loadSubfeatures As Boolean
    loadProperties = True
    loadSubfeatures = True
    
    Dim featureDefEnum As FeatureDefEnumerator
    Set featureDefEnum = FeatureMgr.GetFeatureDefs (loadProperties, loadSubfeatures)

    Dim oFeatureDef As FeatureDef
    
    Do While featureDefEnum.MoveNext
        Set oFeatureDef = featureDefEnum.Current
        featureName = oFeatureDef.Name
    Loop
End Sub 

This one never goes into the Do-Loop.

I use no XFMschema both have tried both with dynamic feature scoring and with run time definition through the MDL api ( I can check through tree view in 
the Analyze tool that my run-time definition actually is working !!).

Best Regards
Erik Wirring