asp.net Chart画图后台代码

 ''' <summary>
    ''' 画像データの作成し、データをセット
    ''' </summary>
    ''' <param name="dt_titel">DataTable</param>.
    ''' <param name="objStatusGraphDao">(状況確認)グラフ対象</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Private Function Fun_CreateChart(ByVal dt_titel As DataTable, ByVal objStatusGraphDao As StatusGraphDao) As ArrayList

        Dim ary As New ArrayList
        Dim j As Integer
        Dim dt As DataTable
        For i As Integer = 0 To dt_titel.Rows.Count - 1

            Dim Chart1 As Chart = New Chart
            Chart1.Width = "400"

            Chart1.ChartAreas.Add("ChartArea1")
            Chart1.ChartAreas.Add("ChartArea2")

            Chart1.ChartAreas(0).AxisY.Enabled = AxisEnabled.False
            'Chart1.ChartAreas(0).AxisY.MajorGrid.Enabled = False
            Chart1.ChartAreas(0).AxisX.Enabled = AxisEnabled.False
            Chart1.ChartAreas(0).Position.X = "9"
            Chart1.ChartAreas(0).Position.Y = "0"
            Chart1.ChartAreas(0).Position.Width = "90"
            Chart1.ChartAreas(0).Position.Height = "15"

            'Chart1.ChartAreas(1).AxisY.Enabled = AxisEnabled.False
            Chart1.ChartAreas(1).AxisY.MajorTickMark.Enabled = False
            Chart1.ChartAreas(1).AxisY.Maximum = 500
            Chart1.ChartAreas(1).AxisY.Minimum = 0
            Chart1.ChartAreas(1).AxisY.MinorTickMark.Interval = 100
            Chart1.ChartAreas(1).AxisX.MajorGrid.Enabled = False
            Chart1.ChartAreas(1).AxisX.MajorTickMark.Enabled = False
            Chart1.ChartAreas(1).AxisX.LabelAutoFitStyle = LabelAutoFitStyles.None
            Chart1.ChartAreas(1).AxisX.LabelStyle.Interval = 1
            Chart1.ChartAreas(1).Position.X = "1"
            Chart1.ChartAreas(1).Position.Y = "10"
            Chart1.ChartAreas(1).Position.Width = "85"
            Chart1.ChartAreas(1).Position.Height = "90"

            Chart1.Series.Add("Series1")
            Chart1.Series.Add("Series2")
            Chart1.Series.Add("Series3")

            Chart1.Series(0).BorderColor = Drawing.Color.Black
            Chart1.Series(0).ChartType = SeriesChartType.Bar
            Chart1.Series(0).Color = Drawing.Color.White
            Chart1.Series(0).ChartArea = "ChartArea1"
            Chart1.Series(0).LabelFormat = "###,##0"
            Chart1.Series(0).IsValueShownAsLabel = True

            Chart1.Series(1).ChartType = SeriesChartType.StackedBar
            Chart1.Series(1).BorderColor = Drawing.Color.Black
            Chart1.Series(1).BackGradientStyle = GradientStyle.VerticalCenter
            Chart1.Series(1).Color = Drawing.Color.FromArgb(0, 192, 0)
            Chart1.Series(1).ChartArea = "ChartArea1"

            Chart1.Series(2).ChartType = SeriesChartType.Column
            Chart1.Series(2).BackGradientStyle = GradientStyle.VerticalCenter
            Chart1.Series(2).Palette = ChartColorPalette.EarthTones
            Chart1.Series(2).IsValueShownAsLabel = True
            Chart1.Series(2).ChartArea = "ChartArea2"

            '目標値
            Chart1.Series(0).Points.DataBindXY(New String() {"A"}, New Double() {1000000})

            dt = PFn_Get_画像DATA(CStr(dt_titel.Rows(i).Item("PROJECT_CODE")), objStatusGraphDao)

            '実際値
            Chart1.Series(1).Points.DataBindXY(New String() {"A"}, New Double() {CDbl(dt.Rows(0).Item("STEP_AMOUNT"))})
            '図形
            Chart1.DataSource = dt
            Chart1.Series(2).XValueMember = "MOJI2"
            Chart1.Series(2).YValueMembers = "COUNT_NUM"
            Chart1.DataBind()

            ary.Insert(i, Chart1)
            j = i
        Next

        '２個不足の場合、空白を追加
        If ary.Count Mod 2 <> 0 Then
            ary.Insert(j + 1, Nothing)
        End If

        Return ary

    End Function