Dim dx As New DataTable
With dx.Columns
    .Add("ArtderStörung", GetType(String))
    .Add("Count", GetType(Integer))
    .Add("Cum", GetType(Integer))
    .Add("CumPerc", GetType(Double))
End With
 
'Die Daten
With dx.Rows
    .Add("sonstige", 10)
    .Add("Mechanik", 3)
    .Add("Elektrik", 1)
End With
 
bs.DataSource = dx
bs.Sort = "Count Desc" 'Häufigkeit fallend sortieren
 
Dim sm As Integer = 0
For i As Integer = 0 To bs.Count - 1
   Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
   'Häufigkeiten kumulieren
   sm += CInt(row("Count"))
   row("cum") = sm
Next i
 
'Kumulierte Werte in Prozentanteile umrechnen
For i As Integer = 0 To bs.Count - 1
   Dim row As DataRow = DirectCast(bs(i), DataRowView).Row
   row("CumPerc") = Math.Round(CInt(row("Cum")) / sm * 100, 2)
Next i
 
With cht
   .DataSource = bs
   .ChartAreas.Add("Base")
   .Titles.Add("Pareto Demo")
 
   'Einrichtung der Achsen
   With cht.ChartAreas("Base")
      .AxisX.Interval = 1
 
      .AxisY.Title = "Häufigkeit"
      .AxisY.Maximum = sm
      .AxisY.MajorGrid.Enabled = False
 
      .AxisY2.Title = "Cum. Häufigkeit /Prozent"
      .AxisY2.MajorGrid.Interval = 10
      .AxisY2.Maximum = 100
   End With
 
   'Zuordnung der Tabellenspalten zu Datenserien
 
   .Series.Add("Störungsart")
   With .Series("Störungsart")
      .ChartType = SeriesChartType.Column
      .XValueMember = "ArtderStörung"
      .YValueMembers = "Count"
      .YAxisType = AxisType.Primary
   End With
 
   .Series.Add("Cum")
   With .Series("Cum")
      .ChartType = SeriesChartType.Line
      .XValueMember = "ArtderStörung"
      .YValueMembers = "CumPerc"
      .YAxisType = AxisType.Secondary
      .BorderWidth = 2
   End With
End With