public class Records : ArrayList, DevExpress.Data.IRelationList {
    //Adds three items of the Record class
    public Records() {
        Add(new Record("Customers"));
        Add(new Record("Products"));
        Add(new Record("Shippers"));
    }

    #region  IRelationList methods

    //Returns the name of the relationship depending upon the specified item
    //The name of the relationship matches the item's name
    //It is used to determine the pattern View for the relationship
    string IRelationList.GetRelationName(int index, int relationIndex) {
       if(index != GridControl.InvalidRowHandle)
          return ((Record)this[index]).Name;
       else return "";
    }

    //Returns the number of master-detail relationships for the current data source
    //Every item is associated with a single relationship
    int IRelationList.RelationCount {
        get { return 1; }
    }

    //Returns detail data depending upon the current item
    IList IRelationList.GetDetailList(int index, int relationIndex)    {
        switch(this[index].Name) {
            case "Customers":
                return new ChildRecordsCustomers();
            case "Products":
                return new ChildRecordsProducts();
            case "Shippers":
                return new ChildRecordsShippers();
        }
        return null;
    }

    //Returns whether the specified master row is empty
    //All master rows provide detail data
    bool IRelationList.IsMasterRowEmpty(int index, int relationIndex) {
        return false;
    }
    #endregion

    public virtual new Record this[int index] {
        get {return (Record)(base[index]);}
    }
}

//Represents an item for the Records class
public class Record    {
    private string name;

    public string Name    {
        get { return name;    }
        set { name = value; }
    }

    public Record(string name) {
        this.name = name;
    }
}

Public Class Records
    Inherits ArrayList
    Implements DevExpress.Data.IRelationList
    'Adds three items of the Record class
    Public Sub New()
        Add(New Record("Customers"))
        Add(New Record("Products"))
        Add(New Record("Shippers"))
    End Sub

#Region "IRelationList methods"
    'Returns the name of the relationship depending upon the specified item
    'The name of the relationship matches the item's name
    'It is used to determine the pattern View for the relationship
    Function GetRelationName(ByVal index As Integer, ByVal relationIndex As Integer) _
    As String Implements IRelationList.GetRelationName
        If index <> DevExpress.XtraGrid.GridControl.InvalidRowHandle Then
            Return CType(Item(index), Record).Name
        Else
            Return ""
        End If
    End Function

    'Returns the number of master-detail relationships for the current data source
    'Every item is associated with a single relationship
    ReadOnly Property RelationCount() As Integer Implements IRelationList.RelationCount
        Get
            Return 1
        End Get
    End Property

    'Returns detail data depending upon the current item
    Function GetDetailList(ByVal index As Integer, ByVal relationIndex As Integer) _
    As IList Implements IRelationList.GetDetailList
        Select Case (Item(index).Name)
            Case "Customers"
                Return New ChildRecordsCustomers
            Case "Products"
                Return New ChildRecordsProducts
            Case "Shippers"
                Return New ChildRecordsShippers
        End Select
        Return Nothing
    End Function

    'Returns whether the specified master row is empty
    'All master rows provide detail data
    Function IsMasterRowEmpty(ByVal index As Integer, ByVal relationIndex As Integer) _
    As Boolean Implements IRelationList.IsMasterRowEmpty
        Return False
    End Function

#EndRegion

    Default Public Overridable Shadows Property Item(ByVal index As Integer) As Record
        Get
            Return CType(MyBase.Item(index), Record)
        End Get
        Set(ByVal Value As Record)
            MyBase.Item(index) = Value
        End Set
    End Property
End Class

'Represents an item for the Records class
Public Class Record
    Private _name As String

    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal Value As String)
            _name = Value
        End Set
    End Property

    Public Sub New(ByVal name As String)
        Me._name = name
    End Sub
End Class