Public Class MeineKlasse
    Public Shadows Function ToString() As String
        Return "MeinText"
    End Function
End Class
 
 
 
Public Class Form1
 
    Dim Daten As New List(Of MeineKlasse)
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        Daten.Add(New MeineKlasse)
        Daten.Add(New MeineKlasse)
        Daten.Add(New MeineKlasse)
        Daten.Add(New MeineKlasse)
 
        Me.DataGridView1.Columns.Add(New DataGridViewComboBoxColumn)
        Me.DataGridView1.RowCount = 5
 
        For Each y As MeineKlasse In Daten
            CType(Me.DataGridView1.Columns(0), _
              DataGridViewComboBoxColumn).Items.Add(y.ToString)
        Next
 
    End Sub
 
End Class