Public Class Form1
 
    Public Class mc
        Private _i As Integer
        Private _s As String
        Public Property I() As Integer
            Get
                Return _i
            End Get
            Set(ByVal value As Integer)
                _i = value
            End Set
        End Property
        Public Property S() As String
            Get
                Return _s
            End Get
            Set(ByVal value As String)
                _s = value
            End Set
        End Property
        Public Sub New(ByVal i As Integer, ByVal s As String)
            _i = i
            _s = s
        End Sub
    End Class
 
    Public Class mcSorter
        Implements IComparer(Of mc)
 
        Private pd As System.ComponentModel.PropertyDescriptor
 
        Public Sub New(ByVal column As String)
            Dim props As System.ComponentModel.PropertyDescriptorCollection = _
              System.ComponentModel.TypeDescriptor.GetProperties(GetType(mc))
            pd = props(column)
        End Sub
 
        Public Function Compare(ByVal x As mc, ByVal y As mc) As Integer _
          Implements System.Collections.Generic.IComparer(Of mc).Compare
            Return DirectCast(pd.GetValue(x), IComparable).CompareTo( _
            pd.GetValue(y))
        End Function
    End Class
 
    Dim lomc As New List(Of mc)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ' Daten anlegen
        lomc.Add(New mc(33, "def"))
        lomc.Add(New mc(19, "gdef"))
        lomc.Add(New mc(133, "pdef"))
        lomc.Add(New mc(2, "adef"))
        lomc.Add(New mc(17, "fdef"))
 
        ' Liste sortieren
        lomc.Sort(New mcSorter("I"))
 
        ' Listboxen binden
        ListBox1.DisplayMember = "I"
        ListBox1.DataSource = lomc
        ListBox2.DisplayMember = "S"
        ListBox2.DataSource = lomc
 
        ' oder auch...
        DataGridView1.DataSource = lomc
 
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist