Dim li As ListViewItem 
lvChars.Items.Clear()
For i = 0 To 25
  li = lvChars.Items.Add(Chr(Asc("a") + i)) 
  li.SubItems.Add(counters(i).ToString)
Next
li = lvChars.Items.Add("Spaces") 
li.SubItems.Add(counters(26).ToString) 
li = lvChars.Items.Add("Other") 
li.SubItems.Add(counters(27).ToString)
