using DevExpress.XtraPivotGrid;
using System.Windows.Forms;
using System.Collections.Generic;

namespace WindowsFormsApp2 {
    public partial class Form1 : Form {
        public Form1() {
            InitializeComponent();
            PivotGridControl pivotGridControl = new PivotGridControl();
            pivotGridControl.OptionsData.DataProcessingEngine = PivotDataProcessingEngine.Optimized;
            // ...
            PivotGridField fieldYear = new PivotGridField();
            fieldYear.Area = PivotArea.ColumnArea;
            fieldYear.Caption = "Year";
            fieldYear.DataBinding = new DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateYear);
            fieldYear.Name = "fieldYear";

            PivotGridField fieldQuarter = new PivotGridField();
            fieldQuarter.Area = PivotArea.ColumnArea;
            fieldQuarter.Caption = "Quarter";
            fieldQuarter.DataBinding = new DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateQuarter);
            fieldQuarter.Name = "fieldQuarter";

            PivotGridField fieldMonth = new PivotGridField();
            fieldMonth.Area = PivotArea.ColumnArea;
            fieldMonth.Caption = "Month";
            fieldMonth.DataBinding = new DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateMonth);
            fieldMonth.Name = "fieldMonth";

            pivotGridControl.Fields.AddRange(new PivotGridField[] {
                fieldYear,
                fieldQuarter,
                fieldMonth
            });
            PivotGridGroup group = new PivotGridGroup();
            group.AddRange(new PivotGridField[] { fieldYear, fieldQuarter, fieldMonth });
            pivotGridControl.Groups.Add(group);
        }
    }
}

Imports DevExpress.XtraPivotGrid
Imports System.Windows.Forms
Imports System.Collections.Generic

Namespace WindowsFormsApp2
    Partial Public Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
            Dim pivotGridControl As New PivotGridControl()
            pivotGridControl.OptionsData.DataProcessingEngine = PivotDataProcessingEngine.Optimized
            ' ...
            Dim fieldYear As New PivotGridField()
            fieldYear.Area = PivotArea.ColumnArea
            fieldYear.Caption = "Year"
            fieldYear.DataBinding = New DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateYear)
            fieldYear.Name = "fieldYear"

            Dim fieldQuarter As New PivotGridField()
            fieldQuarter.Area = PivotArea.ColumnArea
            fieldQuarter.Caption = "Quarter"
            fieldQuarter.DataBinding = New DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateQuarter)
            fieldQuarter.Name = "fieldQuarter"

            Dim fieldMonth As New PivotGridField()
            fieldMonth.Area = PivotArea.ColumnArea
            fieldMonth.Caption = "Month"
            fieldMonth.DataBinding = New DataSourceColumnBinding("ShippedDate", PivotGroupInterval.DateMonth)
            fieldMonth.Name = "fieldMonth"

            pivotGridControl.Fields.AddRange(New PivotGridField() { fieldYear, fieldQuarter, fieldMonth })
            Dim group As New PivotGridGroup()
            group.AddRange(New PivotGridField() { fieldYear, fieldQuarter, fieldMonth })
            pivotGridControl.Groups.Add(group)
        End Sub
    End Class
End Namespace