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