Dgv As New DataGridView
 
Private Sub Form1_Load(ByVal sender As System.Object,
        ByVal e As System.EventArgs) Handles MyBase.Load
 
	Dim TextBoxSpalte As DataGridViewTextBoxColumn
	Dim ComboBoxSpalte As DataGridViewComboBoxColumn
 
	' TextBox-Spalten hinzufügen
	ComboBoxSpalte = New DataGridViewComboBoxColumn
	ComboBoxSpalte.HeaderText = "Niederlassung"
	ComboBoxSpalte.Name = "Niederlassung"
	ComboBoxSpalte.Items.AddRange( _
	  New String() {"Berlin", "Köln", "München"})
	Dgv.Columns.Add(ComboBoxSpalte)
 
	   ' Zeilen hinzufügen
 
	Dgv.Dock = DockStyle.Fill
	Me.Controls.Add(Dgv)
End Sub