Private Sub GridListe_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid.ListItem)
  With Item
    .CellText(6) = Format$(DateAdd("s", Val(.CellText(6)), CDate("00:00:00")), _
      "hh:nn:ss")
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de