Private Sub Form_Load()
  ...
  With Grid1
    ...
    .Columns(1).WordWrap = True
    ...
  End WIth
End Sub

Private Sub Grid1_RowLoaded(ByVal nRow As Long, _
  Item As sevDataGrid2.ListItem)
 
  With Item
    .CellText(1) = Replace(.CellText(1), " ", Chr$(160))
  End With  
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de