Private Sub Form_Load()
  With sevGrid1
    .DataMode = Mode_List
    .AllowEdit = True
 
    .ColumnAdd "Value"
    .Columns(1).InputType = INPUT_NUMERIC
    .Columns(1).Decimals = 2
 
    .AddItem ""
  End With    
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de