Public Class MeinItemCollection
    Inherits System.ComponentModel.BindingList(Of MeinItem)
End Class
 
Public Class MeinItem
    Public Sub New(name As String)
        _Name = name
        _Elemente = New MeineListe
 
        _Elemente.Add(4)
        _Elemente.Add(2)
    End Sub
 
    Private _Name As String
    Public ReadOnly Property Name As String
        Get
            Return _Name
        End Get
    End Property
 
    Private _Elemente As MeineListe
    Public ReadOnly Property Elemente As MeineListe
        Get
            Return _Elemente
        End Get
    End Property
End Class
 
Public Class MeineListe
    Inherits System.ComponentModel.BindingList(Of Integer)
 
    Public Overrides Function ToString() As String
        Dim sb As New System.Text.StringBuilder
 
        For Each element In Me
            sb.Append("Element (")
            sb.Append(element)
            sb.Append(") ")
        Next
 
        Return sb.ToString
    End Function
End Class

    Private Sub DataGridView1_CellFormatting(sender As System.Object, e As _
      System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
      DataGridView1.CellFormatting
        If e.ColumnIndex = 1 Then
            If TypeOf e.Value Is MeineListe Then
                e.Value = e.Value.ToString
                e.FormattingApplied = True
            End If
        End If
    End Sub