Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
  Dim i As Long
 
  With Grid1
    For i = 1 To .Cols
      Item.CellBold(i) = True
    Next i      
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de