How to create a 3D pie graph

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
            IAoInitialize ao = new AoInitializeClass();
            ao.Initialize(esriLicenseProductCode.esriLicenseProductCodeBasic);
            SamplePie(@"path to your shapefile", "field name", @
                "path to your output image");
            ao.Shutdown();
        }

        static void SamplePie(String pathToShapeFile, String seriesFieldName, String
            pathToOutImage)
        {

            // Open a workspace for the input shapefile.
            IWorkspaceFactory shapefileWorkspaceFactory = new
                ShapefileWorkspaceFactoryClass();
            IWorkspace shapefileWorkspace;
            shapefileWorkspace = shapefileWorkspaceFactory.OpenFromFile
                (System.IO.Path.GetDirectoryName(pathToShapeFile), 0);
            IFeatureWorkspace featureWorkspace = (IFeatureWorkspace)
                shapefileWorkspace;

            // Get the table for the input shapefile.
            ITable table = (ITable)featureWorkspace.OpenFeatureClass
                (System.IO.Path.GetFileNameWithoutExtension(pathToShapeFile));

            // Create the data graph.
            IDataGraphT dataGraphT = new DataGraphTClass();

            // Add the pie series.
            ISeriesProperties seriesProps = dataGraphT.AddSeries("pie");
            seriesProps.SourceData = table;
            seriesProps.SetField(0, seriesFieldName);

            // Set the pie properties for the first series.
            IPieSeriesProperties pieSeriesProps = (IPieSeriesProperties)seriesProps;
            pieSeriesProps.ExplodeBiggestSlice = 50;

            //Set 3D graph mode.
            dataGraphT.GeneralProperties.Show3D = true;

            // Update the data graph.
            dataGraphT.Update(null);

            // Export the graph to file (the format depends on the file extension).
            dataGraphT.ExportToFile(pathToOutImage);
        }
    }
}

Namespace ConsoleApplication1VBNET

Class Program
    Shared Sub Main(ByVal args() As String)
    Dim ao As IAoInitialize = New AoInitializeClass()
    ao.Initialize(esriLicenseProductCode.esriLicenseProductCodeBasic)
    SamplePie("path to your shapefile", "field name", "path to your output image")
    ao.Shutdown()
End Sub

Shared Sub SamplePie(ByVal pathToShapeFile As String, ByVal seriesFieldName As String, ByVal pathToOutImage As String)

' Open a workspace for the input shapefile.
Dim shapefileWorkspaceFactory As IWorkspaceFactory = New ShapefileWorkspaceFactoryClass()
Dim shapefileWorkspace As IWorkspace
shapefileWorkspace = shapefileWorkspaceFactory.OpenFromFile(System.IO.Path.GetDirectoryName(pathToShapeFile), 0)
Dim featureWorkspace As IFeatureWorkspace = CType(shapefileWorkspace, IFeatureWorkspace)

' Get the table for the input shapefile.
Dim table As ITable = CType(featureWorkspace.OpenFeatureClass(System.IO.Path.GetFileNameWithoutExtension(pathToShapeFile)), ITable)

' Create the data graph.
Dim dataGraphT As IDataGraphT = New DataGraphTClass()

' Add the pie series.
Dim seriesProps As ISeriesProperties = dataGraphT.AddSeries("pie")
seriesProps.SourceData = table
seriesProps.SetField(0, seriesFieldName)

' Set the pie properties for the first series.
Dim pieSeriesProps As IPieSeriesProperties = CType(seriesProps, IPieSeriesProperties)
pieSeriesProps.ExplodeBiggestSlice = 50

'Set 3D graph mode.
dataGraphT.GeneralProperties.Show3D = True

' Update the data graph.
dataGraphT.Update(Nothing)

' Export the graph to file (the format depends on the file extension).
dataGraphT.ExportToFile(pathToOutImage)
End Sub

End Class

End Namespace