Private Sub Form_Load()
  Dim oItem As sevDataGrid2.ListItem
  With sevGrid1
    .DataMode = Mode_List
    .Checkboxes = True
    Set oItem = .AddItem("item1")
    oItem.Checked = True
    Set oItem = .AddItem("item2")
    oItem.Checked = True
  End With
End Sub
 
Private Sub sevGrid1_OnCheckBoxChange(ByVal nRow As Long, ByVal bNewState As _
  Boolean, bCancel As Boolean)
    If bNewState = False Then
      sevGrid1.DeleteRow
    End If
End Sub