Imports System.ComponentModel Imports DevExpress.DataAccess.ObjectBinding Namespace Report Public Class ReportSource Public Property Head As ReportHead Public Property Positions As IEnumerable(Of ReportPosition) Public Iterator Function GetPositionList() As IEnumerable(Of ReportPosition) For Each oPosition In Positions Yield oPosition Next End Function End Class End Namespace