C# と VB.NET の質問掲示板

「積上げ縦棒」を描きたいのですが、どこを見ても載ってませんし、
どのようなデータを作れば良いのかも分かってませんがお教えの程お願いします。

        Dim ds As New DataSet
        Dim dt As New DataTable
        Dim dtRow As DataRow

        With dt.Columns
            .Add("数量", GetType(Integer))
        End With
        ds.Tables.Add(dt)

        For i = 0 To 10
            dtRow = ds.Tables(0).NewRow
            dtRow(0) = i * 10
            ds.Tables(0).Rows.Add(dtRow)
        Next

        Chart1.DataSource = dt
        Chart1.Series.Clear()
        Dim oresen = Chart1.Series.Add("折れ線")
        With oresen
            .ChartType = DataVisualization.Charting.SeriesChartType.Line             '折れ線
            '.ChartType = DataVisualization.Charting.SeriesChartType.StackedColumn   '積上げ縦棒
            .YValueMembers = "数量"
            .IsVisibleInLegend = False
        End With

Dim data = New DataTable()
With data.Columns
  .Add("名前")
  .Add("国語", GetType(Integer))
  .Add("算数", GetType(Integer))
  .Add("理科", GetType(Integer))
  .Add("社会", GetType(Integer))
End With
data.Rows.Add("田中", 35, 27, 38, 44)
data.Rows.Add("鈴木", 72, 78, 69, 89)
chart1.DataSource = data
For Each kamoku in { "国語", "算数", "理科", "社会" }
  With chart1.Series.Add(kamoku)
    .ChartType = SeriesChartType.StackedColumn
    .XValueMember = "名前"
    .YValueMembers = kamoku
  End With
Next