Public Class frmDGVColumn
 
    Dim WithEvents dt As New DataTable
    Dim WithEvents dgv As New DataGridView With {.Parent = Me}
    Dim WithEvents bs As New BindingSource
 
    Private Sub frmDGVColumn_Load _
        (sender As Object, e As System.EventArgs) Handles Me.Load
 
        'Datatable erstellen und mit Defaultwerten füllen
        dt.Columns.Add("ComboSpalte", GetType(Byte))
        dt.Columns(0).AllowDBNull = False
        'Zeilen erstellen (pro Combo)
        Dim obj(0) As Object
        For i As Integer = 0 To 87
            obj(0) = CByte(1)   'Defaultwert für die Zeile
            dt.Rows.Add(obj)
        Next i
 
        dgv.AllowUserToAddRows = False
        dgv.AllowUserToDeleteRows = False
 
        'Datenbindung der Tabelle ans Datagrid
        dgv.AutoGenerateColumns = False
        bs.DataSource = dt
        dgv.DataSource = bs
 
        'Eine ComboSpalte erstellen und zuordnen
        Dim cc As New DataGridViewComboBoxColumn
        cc.HeaderText = dt.Columns(0).ColumnName
        cc.ValueType = dt.Columns(0).DataType
        cc.DataPropertyName = dt.Columns(0).ColumnName
        'Comboliste auffüllen 
        For i As Integer = 0 To 24
            cc.Items.Add(CByte(i + 1))
        Next i
        dgv.Columns.Add(cc)
 
        'Zeilenköpfe des Grid geeignet beschriften
        dgv.RowHeadersWidth = 100
        For r As Integer = 0 To 87
            dgv.Rows(r).HeaderCell.Value = "Combo" & CStr(r + 1)
        Next r
    End Sub
End Class