Private Sub Form_Load()
  Dim i As Long
 
  With sevGrid1
    .DataMode = Mode_List
    .AllowEdit = True
 
    .ColumnAdd 1, "Artikel-Nr", 900, , , TYP_TEXT
    .ColumnAdd 2, "Artikel", 2000, , , TYP_TEXT
    .ColumnAdd 3, "Preis", 900, , , TYP_TEXT
 
    .Columns(3).InputType = INPUT_CURRENCY
    .Columns(3).DisplayFormat = "#,##0.00 €"
 
    For i = 1 To 3
      .AddItem "1" & vbTab & "Kloopapier" & vbTab & "3,23"
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de