bs.Sort = "Count Desc" 'Häufigkeiten fallend sortieren
 
Dim sm As Integer = 0 'Summations-Variable
 
For i As Integer = 0 To bs.Count - 1
   'Zugriff auf sortierte Zeilen über die Bindingsource
   Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
   'Häufigkeiten kumulieren
   sm += CInt(row("Count"))
   row("Cum") = sm   
Next i
 
'in Prozentanteile umrechnen
For i As Integer = 0 To bs.Count - 1
    Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
    row("Cum") = Math.Round(CInt(row("Cum")) / sm * 100, 2)
    'entsprechend für die Spalte "Count"
Next i