Private Sub Form_Load()
  ' Grid-Eigenschaften festlegen
  With Grid1
    .LockUpdate True
    .DataMode = Mode_List
 
    ' Spalten
    .ColumnAdd ...
 
    ' Spalte X mit Kalenderfunktion
    With .ColumnAdd("Datum", "X", 1500)
      .InputType = INPUT_DATE
      .SortType = SORT_DATE
      .Button = True
    End With
    ...
 
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de