Option Explicit
Private LastRow As Long
Private bBold As Boolean
 
Private Sub Grid1_RowChange(ByVal nRow As Long)
  If LastRow > 0 And LastRow <> nRow Then
    Grid1.RowRefresh LastRow
  End If
 
  If nRow > 0 Then
    bBold = True
    Grid1.RowRefresh nRow
  End If
  LastRow = nRow
End Sub
 
Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As ListItem)
  With Item
    If bBold Then .CellBold(1) = True
    bBold = False
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de