Private Sub dgvtime_CellFormatting(sender As Object, _
        e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) _
        Handles dgvTime.CellFormatting
 
        If dgvTime.Columns(e.ColumnIndex).Name = "Intervall" Then
            If e.Value IsNot Nothing AndAlso Not IsDBNull(e.Value) Then
                Dim ts As New TimeSpan(0, 0, DirectCast(e.Value, Integer))
                e.Value = ts.ToString("hh\:mm\:ss")
                e.FormattingApplied = True
            End If
        End If
 
    End Sub