[VBScript]
ReadOnly property ISYSResultList.Metadata as ISYSMetadataRefinement

[C#]
IISYSMetadataRefinement  ISYSResultList.Metadata {get;}

[ColdFusion/Java]
IISYSMetadataRefinement  ISYSResultList.Metadata() throws ComException;

Sub ShowRefinement(Item)
    Print Item.Name
    For I = 1 to Item.Count
        Print Space(4) & Item.Value(I).Name
    Next  
End  Sub  

For  Each Refinement in ISYSResultList.Metadata
    ShowRefinement Refinement
Next  

' Sample Output  
' Department  
'     HR  
'     Administration  
'     Marketing  
'     Support  
' Author  
'     John Smith  
'     Fred Jones  
' Company  
'     AMCE Inc  
'     Random Aerospace