Full-Stacked Spline Area Chart

using System;
using System.Windows.Forms;
using DevExpress.XtraCharts;
// ... 

private void Form1_Load(object sender, EventArgs e) {
    // Create an empty chart. 
    ChartControl fullStackedSplineArea3DChart = new ChartControl();

    // Create two series of the FullStackedSplineArea3D view type. 
    Series series1 = new Series("Series 1", ViewType.FullStackedSplineArea3D);
    Series series2 = new Series("Series 2", ViewType.FullStackedSplineArea3D);

    // Populate both series with points. 
    series1.Points.Add(new SeriesPoint("A", 80));
    series1.Points.Add(new SeriesPoint("B", 20));
    series1.Points.Add(new SeriesPoint("C", 50));
    series1.Points.Add(new SeriesPoint("D", 30));
    series2.Points.Add(new SeriesPoint("A", 40));
    series2.Points.Add(new SeriesPoint("B", 60));
    series2.Points.Add(new SeriesPoint("C", 20));
    series2.Points.Add(new SeriesPoint("D", 80));

    // Add the series to the chart. 
    fullStackedSplineArea3DChart.Series.AddRange(new Series[] {
        series1,
        series2});

    // Adjust the view-type-specific options of the series. 
    ((FullStackedSplineArea3DSeriesView)series1.View).Transparency = 20;
    ((FullStackedSplineArea3DSeriesView)series2.View).Transparency = 60;

    // Access the diagram's options. 
    ((XYDiagram3D)fullStackedSplineArea3DChart.Diagram).ZoomPercent = 110;

    // Add a title to the chart and hide the legend. 
    ChartTitle chartTitle1 = new ChartTitle();
    chartTitle1.Text = "3D Full Stacked Spline Area Chart";
    fullStackedSplineArea3DChart.Titles.Add(chartTitle1);
    fullStackedSplineArea3DChart.Legend.Visible = false;

    // Add the chart to the form. 
    fullStackedSplineArea3DChart.Dock = DockStyle.Fill;
    this.Controls.Add(fullStackedSplineArea3DChart);
}

Imports System
Imports System.Windows.Forms
Imports DevExpress.XtraCharts
' ... 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
    ' Create an empty chart. 
    Dim fullStackedSplineArea3DChart As New ChartControl()

    ' Create two series of the FullStackedSplineArea3D view type. 
    Dim series1 As New Series("Series 1", ViewType.FullStackedSplineArea3D)
    Dim series2 As New Series("Series 2", ViewType.FullStackedSplineArea3D)

    ' Populate both series with points. 
    series1.Points.Add(New SeriesPoint("A", 80))
    series1.Points.Add(New SeriesPoint("B", 20))
    series1.Points.Add(New SeriesPoint("C", 50))
    series1.Points.Add(New SeriesPoint("D", 30))
    series2.Points.Add(New SeriesPoint("A", 40))
    series2.Points.Add(New SeriesPoint("B", 60))
    series2.Points.Add(New SeriesPoint("C", 20))
    series2.Points.Add(New SeriesPoint("D", 80))

    ' Add the series to the chart. 
    fullStackedSplineArea3DChart.Series.AddRange(New Series() { series1, series2})

    ' Adjust the view-type-specific options of the series. 
    CType(series1.View, FullStackedSplineArea3DSeriesView).Transparency = 20
    CType(series2.View, FullStackedSplineArea3DSeriesView).Transparency = 60

    ' Access the diagram's options. 
    CType(fullStackedSplineArea3DChart.Diagram, XYDiagram3D).ZoomPercent = 110

    ' Add a title to the chart and hide the legend. 
    Dim chartTitle1 As New ChartTitle()
    chartTitle1.Text = "3D Full Stacked Spline Area Chart" 
    fullStackedSplineArea3DChart.Titles.Add(chartTitle1)
    fullStackedSplineArea3DChart.Legend.Visible = False 

    ' Add the chart to the form. 
    fullStackedSplineArea3DChart.Dock = DockStyle.Fill
    Me.Controls.Add(fullStackedSplineArea3DChart)
End Sub