使用过webchart的高手请进！（也许是一个很简单的问题！）

Private Sub RenderForm()
        'Put user code to initialize the page here
        Dim Chart As WebChart
        Dim i As Int32
        Dim j As Int32
        Dim t As Int16 = Int16.MinValue
        Dim v As Int32
        Dim x As Int16 = 1        ' Override Default Constructor
        ' Copyright Symbol: Hold ALT + 0681
        Chart = New WebChart("Copyright @ 2004 wxy")        With Chart
            .ID = "CodeChart"
            .Type = WebChart.ChartType.Bar            ' Override WebChartItems for Pie Data
            Dim highVal As Single
            Dim ExplodeIndex As Int32 = 0            Randomize()
            For i = 0 To 11
                Dim d As Date = Date.Now()
                Dim s As String = d & d
                .WebChartItems.Add(New WebChartItem(Math.Round(Rnd(10) * 10), s, Math.Round(Rnd(10) * 10), "")) 'Primary + Alternate Value
                '.WebChartItems.Add(New WebChartItem(Math.Round(Rnd(10) * 10), Format(d, "MMMM"))) 'Primary only
            Next
            .BarLineChartSize = BarLineChartSize
            .LabelPrimary = "resultaten 2003"
            .LabelAlternate = "resultaten 2002"
            .ShowValues = True
            .ShowLabels = True
            .ShowLegend = True
            .UseRange = True
            .Title = "Bar Chart"            'Specify output format
            .Format = WebChart.ChartFormat.Png        End With        ' Add control to web form
        Me.Controls.Add(Chart)        Chart = New WebChart("Copyright @ 2004 wxy")        With Chart            .ID = "CodeChartLine"
            .Type = WebChart.ChartType.Line            ' Override WebChartItems for Pie Data
            Dim highVal As Single
            Dim ExplodeIndex As Int32 = 0            Randomize()
            For i = 0 To 11
                Dim d As New DateTime(Year(Now), i + 1, 1)
                .WebChartItems.Add(New WebChartItem(CInt(Rnd(10) * 10), Format(d, "MMMM"), Math.Round(Rnd(10) * 10), ""))
                '.WebChartItems.Add(New WebChartItem(CInt(Rnd(10) * 10), Format(d, "MMMM"))) 'Primary only
            Next            .LabelPrimary = "resultaten 2003"
            .LabelAlternate = "resultaten 2002"            .BarLineChartSize = BarLineChartSize
            .ShowValues = True
            .ShowLabels = True
            .ShowLegend = True
            .OutlineBars = True
            .UseRange = True
            .Title = "Line Chart"            'Specify output format
            .Format = WebChart.ChartFormat.Png        End With        ' Add control to web form
        Me.Controls.Add(Chart)        Chart = New WebChart("Copyright @ 2004 wxy")        With Chart            .ID = "CodeChart2"
            .Type = WebChart.ChartType.Pie            ' Override WebChartItems for Pie Data
            Dim highVal As Single
            Dim ExplodeIndex As Int32 = 0            Randomize()
            For i = 0 To 11
                Dim d As New DateTime(Year(Now), i + 1, 1)
                v = Math.Round(Rnd(100) * 100)
                .WebChartItems.Add(New WebChartItem(Format(d, "MMMM"), v, False))
                If v > t Then
                    t = v
                    'Explode High Value
                    x = i
                End If
            Next            .LabelPrimary = "resultaten 2003"
            .LabelAlternate = "resultaten 2002"            .WebChartItems(x).Explode = True            .ShowValues = True
            .ShowLabels = True
            .ShowLegend = True            .Diameter = WebChart.PieDiameter.Larger
            .ExplodeOffset = 25
            .Rotate = 70
            .Thickness = WebChart.PieThickness.Medium
            .Title = "Pie Chart lange titel zodat ik kan kijken wat er mis gaat"            'Specify output format
            .Format = WebChart.ChartFormat.Png        End With        ' Add control to web form
        Me.Controls.Add(Chart)    End Sub