Public Class DataListView
  Inherits System.Windows.Forms.ListView
    Private WithEvents mColumns As DataColumnHeaderCollection
 
  Public Sub New()
    mColumns = New DataColumnHeaderCollection()
  End Sub
 
  Public Shadows ReadOnly Property Columns() As DataColumnHeaderCollection
    Get
      Return mColumns
    End Get
  End Property
End Class
 
Public Class DataColumnHeader
  Inherits ColumnHeader
 
  Private mField As String
  Public Property Field() As String
    Get
      Return mField
    End Get
    Set(ByVal Value As String)
      mField = Value
    End Set
  End Property
End Class
 
Public Class DataColumnHeaderCollection
  Inherits CollectionBase
 
  Default Public ReadOnly Property Item(ByVal Index As Integer) As _
    DataColumnHeader
    Get
      Return CType(list.Item(Index), DataColumnHeader)
    End Get
  End Property
 
  Public Sub Add(ByVal Text As String, ByVal Field As String)
    Dim col As New DataColumnHeader()
    col.Text = Text
    col.Field = Field
    list.Add(col)
  End Sub
End Class