Option Explicit
 
Private Sub Form_Load()
  With Grid1
    .DataMode = Mode_List
    .ColumnAdd , "ComboBox", 2500, , , TYPE_COMBOBOX
    .ColumnAdd , "Text"
  End With
End Sub
 
Private Sub Grid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
  With oComboBox
    .AddItem "Eintrag 1"
    .AddItem "Eintrag 2"
  End With
End Sub
 
Private Sub Command1_Click()
  Grid1.AddNew
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de