Private Sub Form_Load()
    With sevGrid1
        .DataMode = Mode_List
        .ColumnAdd , , , , , TYPE_CHECKBOX
        .ColumnAdd , , , , , TYPE_CHECKBOX
        .ColumnAdd , , , , , TYPE_TEXT
        .ColumnAdd , , , , , TYPE_TEXT
        With .AddItem("True" & vbTab & "False" & vbTab & "Test" & vbTab & "23")
            .CellBackColor(1) = &H8000000F
            .CellBackColor(2) = &H8000000F
        End With
        With .AddItem("False" & vbTab & "True" & vbTab & "Test" & vbTab & "23")
            .CellBackColor(1) = &H8000000F
            .CellBackColor(2) = &H8000000F
        End With
    End With
End Sub