With listview1
   .View = View.Details 'Sicht einstellen
   .Font = New Font("Courier New", 10) 'feste Zeichenbreite
   .Items.Clear(): .Columns.Clear() 
 
   'Spalten neu einrichten
   With .Columns
      .Add("z", "Zeit") : .Add("Häufigk.") : .Add("kumulativ")
 
      .Item("z").Width = 250 'Header-Zugriff per Key
      For i As Integer = 1 To 2
         With .Item(i)
            .TextAlign = HorizontalAlignment.Right
            .Width = 100
         End With
      Next i
   End With
 
   'ListViewItems erstellen und füllen
   With .Items
      sum = 0 'Integer-Variable
      For i As Integer = 0 To 23
         'Neues Item anfügen
         Dim lvi As ListViewItem = _
         .Add(String.Format("Dateien von {0,2} bis {1,2} Uhr: ", i, i + 1))
 
         'SubItems füllen 
         lvi.SubItems.Add(hourlist(i).Count.ToString)
         sum += hourlist(i).Count 'Summation
         lvi.SubItems.Add(sum.ToString)
       Next i
   End With
End With