_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

public sub SetBgColor(ByRef Item As sevDataGrid2.ListItem)
Item.BackColor=vbred
end sub

SetBgColor Grid.SelectedItem
debug.print Grid.SelectedItem.Backcolor

SetBgColor Grid.ListItems(1)
debug.print Grid.ListItems(1).Backcolor

Option Explicit
 
Public Sub SetBgColor(ByRef Item As sevDataGrid2.ListItem)
  Item.BackColor = vbRed
End Sub
 
Private Sub Command1_Click()
  SetBgColor Grid1.ListItems(1)
End Sub
 
Private Sub Command2_Click()
  SetBgColor Grid1.SelectedItem
End Sub
 
Private Sub Form_Load()
  Dim i As Long
 
  With Grid1
    .DataMode = Mode_List
    .LockUpdate True
 
    For i = 1 To 10
      .AddItem "Zeile " & CStr(i) & vbTab & "Spalte 2"
    Next i
 
    .LockUpdate False
    .Refresh
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de