3D Pie auf Main gesetzt

EnvelopeGenerator.Form/frmMain.vb

@@ -1,4 +1,6 @@
-Imports DevExpress.XtraSplashScreen
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraSplashScreen
+Imports DevExpress.XtraCharts
 Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Config
@@ -6,6 +8,7 @@ Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
+Imports DevExpress.Charts.Native
 
 Public Class frmMain
     Private LogConfig As LogConfig
@@ -70,6 +73,8 @@ Public Class frmMain
             LoadEnvelopes()
             LoadCompletedEnvelopes()
 
+            LoadCharts()
+
         Catch ex As Exception
             Logger.Error(ex)
         End Try
@@ -92,6 +97,11 @@ Public Class frmMain
         GridCompleted.DataSource = Controller.ListCompleted()
     End Sub
 
+    Private Sub LoadCharts()
+        Dim oChartControl As ChartControl = Controller.GetPieChart()
+        Me.SplitContainerControl1.Panel2.AddControl(oChartControl)
+    End Sub
+
     Private Sub btnCreateEnvelope_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles btnCreateEnvelope.ItemClick
         Dim oHandle = SplashScreenManager.ShowOverlayForm(Me)
         Try