Private Sub dgv_CellFormatting(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
      dgv.CellFormatting
        'Kopfzellen nicht formatieren
        If e.ColumnIndex = -1 Or e.RowIndex = -1 Then Exit Sub
        'Zeitstempel formatieren
        If e.ColumnIndex = dgv.Columns("DateTime").Index Then
            e.Value = String.Format("{0:G}", e.Value)
            'Bitwerte formatieren
        ElseIf e.ColumnIndex = dgv.Columns("DIValues").Index Then
            Dim Value() As Byte = {CType(e.Value, Byte)}
            Dim Bits As New BitArray(Value)
            e.Value = ""
            For i As Integer = 0 To 7
                If Bits(i) = True Then
                    e.Value = e.Value.ToString + "1"
                Else
                    e.Value = e.Value.ToString + "0"
                End If
            Next
        End If
    End Sub