Private Sub Grid1_StartEditMode(ByVal nRow As Long, ByVal nCol As Long, _
  sText As String, bCancel As Boolean)
 
  With Grid1.SelectedItem
    .BackColor = vbBlue
    .ForeColor = vbWhite
  End With
End Sub

Private Sub Grid1_AfterCellEdit(nRow As Long, nCol As Long, ByVal sText As _
  String)
  With Grid1.SelectedItem
    .BackColor = -1
    .ForeColor = -1
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de