how to populate dynamic columns from a collection?

KEEP IN MIND THIS IS ALL TEST CODE
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Structure TwoInts

Private _int1 As Integer
Private _int2 As Integer
Private _int3 As Integer

    Public Property Int1() As Integer
        Get
            Return Me._int1
        End Get
        Set(ByVal value As Integer)
            Me._int1 = value
        End Set
    End Property

    Public Property Int2() As Integer
        Get
            Return Me._int2
        End Get
        Set(ByVal value As Integer)
            Me._int2 = value
        End Set
    End Property

    Public Property Parent() As Integer
        Get
            Return Me._int3
        End Get
        Set(ByVal value As Integer)
            Me._int3 = value
        End Set
    End Property

    Public Overloads Overrides Function Equals(ByVal obj As Object) As Boolean
        If obj Is Nothing Then
            Return False
        End If
        Return Me.Int1 = DirectCast(obj, TwoInts).Int1
    End Function
End Structure
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Class testList

Private _str As String

    Property Str() As String
        Get
            Return _str
        End Get
        Set(ByVal value As String)
            _str = value
        End Set
    End Property

    Private _lst As List(Of TwoInts)
    Property ListInts() As List(Of TwoInts)
        Get
            Return _lst
        End Get
        Set(ByVal value As List(Of TwoInts))
            _lst = value
        End Set
    End Property
End Class

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Imports Infragistics.Silverlight.Controls
Imports Infragistics.Silverlight.Controls.Primitives
Imports System.Windows.Data

Public Class MyColumn
Inherits TemplateColumn

Protected Overloads Overrides Function GenerateContentProvider() As ColumnContentProviderBase

Return New MyColumnContentProvider()
End Function

End Class

Public Class MyColumnContentProvider
Inherits TemplateColumnContentProvider

    Public Overloads Overrides Function ResolveDisplayElement(ByVal cell As Cell, _
                                                              ByVal cellBinding As Binding) _
                                                              As FrameworkElement

Dim elem As FrameworkElement = MyBase.ResolveDisplayElement(cell, cellBinding)

If elem IsNot Nothing Then

Dim mdo As testList = TryCast(cell.Row.Data, testList)

If mdo IsNot Nothing Then

                Dim qry = From p In mdo.ListInts Where p.Int1 = cell.Column.Key Select p
                '(From p In mdo.ListInts Where p.Int1 = cell.Column.Key Select p).Count() > 1
                If qry.Count() > 0 Then

elem.DataContext = (From p In mdo.ListInts _
Where p.Int1 = cell.Column.Key Select p).SingleOrDefault()

                    'mdo.ListInts(cell.Column.Key)
                Else
                    elem.DataContext = Nothing
                End If

                'mdo.ListInts.GetType.GetProperties(0)
                '.GetType.GetProperties(0)
                '.GetType.GetProperties(cell.Column.Key)
                'mdo.GetType.FindMembers(Reflection.MemberTypes.Property, cell.Column.Key)
            End If
        End If

Return elem
End Function

    Protected Overloads Overrides Function ResolveEditorControl(ByVal cell As Cell, _
                                                      ByVal editorValue As Object, _
                                                      ByVal availableWidth As Double, _
                                                      ByVal availableHeight As Double, _
                                                      ByVal editorBinding As Binding) _
                                                      As System.Windows.FrameworkElement

        Dim editor As FrameworkElement = MyBase.ResolveEditorControl(cell, editorValue, _
                                                                     availableWidth, _
                                                                     availableHeight, _
                                                                     editorBinding)

If editor IsNot Nothing Then

Dim mdo As testList = TryCast(cell.Row.Data, testList)

If mdo IsNot Nothing Then

Dim qry = From p In mdo.ListInts Where p.Int1 = cell.Column.Key Select p

If qry.Count() > 0 Then

editor.DataContext = (From p In mdo.ListInts _
Where p.Int1 = cell.Column.Key Select p).SingleOrDefault()

                    'mdo.ListInts(cell.Column.Key)
                Else
                    editor.DataContext = Nothing
                End If
            End If
        End If

Return editor

'Return MyBase.ResolveEditorControl(cell, editorValue, availableWidth, availableHeight, editorBinding)
End Function
End Class

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Generate data and columns in test page loaded event''''''''''''''
    Dim li As New List(Of TwoInts)
        Dim li2 As New List(Of TwoInts)
        Dim li3 As New List(Of TwoInts)
        Dim li4 As New List(Of TwoInts)

Dim l As New List(Of testList)
Dim val2 As Integer = 100

For x As Integer = 0 To 5

            li.Add(New TwoInts() With {.Int1 = x, .Int2 = 111})
            'val2 += 1
        Next

For x As Integer = 6 To 8

li2.Add(New TwoInts() With {.Int1 = x, .Int2 = 222})
Next

For x As Integer = 3 To 9

li3.Add(New TwoInts() With {.Int1 = x, .Int2 = 333})
Next

For x As Integer = 9 To 13

li4.Add(New TwoInts() With {.Int1 = x, .Int2 = 444})
Next

        l.Add(New testList() With {.Str = "Row One", .ListInts = li})
        l.Add(New testList() With {.Str = "Row Two", .ListInts = li2})
        l.Add(New testList() With {.Str = "Row Three", .ListInts = li3})
        l.Add(New testList() With {.Str = "Row Four", .ListInts = li4})

Dim template As DataTemplate = LayoutRoot.Resources("colTemplate")
Dim editTemplate As DataTemplate = LayoutRoot.Resources("colTemplateEdit")

For Each y In li

If dg.Columns.Item(y.Int1.ToString()) Is Nothing Then

                dg.Columns.Add(New MyColumn() With {.Key = y.Int1, _
                                                    .ItemTemplate = template, _
                                                    .EditorTemplate = editTemplate, _
                                                    .Width = New ColumnWidth(35, False)})
            End If
        Next

For Each y In li2

If dg.Columns.Item(y.Int1.ToString()) Is Nothing Then

For Each y In li3

If dg.Columns.Item(y.Int1.ToString()) Is Nothing Then

For Each y In li4

If dg.Columns.Item(y.Int1.ToString()) Is Nothing Then

dg.ItemsSource = l

''''''''''''''''''''''''''''''''''''''''''''''''''

</DataTemplate>
<DataTemplate x:Key="colTemplateEdit">

</DataTemplate>

''''''''''''''''''''''''''''''''''
<igGrid:XamWebGrid x:Name="dg"
                           Margin="10"
                           AutoGenerateColumns="False"
                           Background="Transparent"
                           VerticalAlignment="Top"
                           Grid.Row="1"
                           Grid.Column="0">

<igGrid:XamWebGrid.Columns>

                <igGrid:TextColumn Key="Str"
                                   Width="75" />

            </igGrid:XamWebGrid.Columns>

            <igGrid:XamWebGrid.EditingSettings>
                <igGrid:EditingSettings AllowEditing="Cell"
                                        IsMouseActionEditingEnabled="SingleClick"
                                        IsOnCellActiveEditingEnabled="true" />
            </igGrid:XamWebGrid.EditingSettings>
        </igGrid:XamWebGrid>