Dim oItem As sevDataGrid2.ListItem
 
Private Sub Form_Load()
    With Me.sevGrid1
        .DataMode = Mode_List
        .SelectionHide
        .ColumnAdd "Col1", "Col1"
        .ColumnAdd "Col2", "Col2"
        .AddItem "test" & vbTab & "test"
        .AddItem "test" & vbTab & "test"
    End With
End Sub
 
Private Sub sevGrid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
 
    If Not oItem Is Nothing Then
        oItem.BackColor = vbWhite
    End If
 
    With Me.sevGrid1
        .RowRefresh
        .ListItems(nRow).CellBackColor(nCol) = vbRed
        Set oItem = .ListItems(nRow)
    End With
 
End Sub