For tblNum = 0 To (dsData.Tables.Count - 1)

                tblName = dsData.Tables(tblNum).TableName
                caTag = dtReport.Rows(tblNum).Item("caTag")
                If (dtReport.Rows(tblNum).Item("CAnum") > CAnum) Then
                    CAnum = dtReport.Rows(tblNum).Item("CAnum")
                    myChart.ChartAreas.Add(caTag)
                    myChart.Legends.Add(caTag)
                    With myChart.Legends(caTag)
                        .Docking = Docking.Bottom
                        .DockedToChartArea = caTag
                        .IsDockedInsideChartArea = False
                        .TableStyle = LegendTableStyle.Wide
                        .Alignment = StringAlignment.Center
                        .Enabled = True
                    End With
                    If (caCount > 1) Then
                        CAindex += 1
                        myChart.Titles.Add(caTag)
                        With myChart.Titles(CAindex)
                            .Docking = Docking.Top
                            .DockedToChartArea = caTag
                            .IsDockedInsideChartArea = False
                            .Alignment = ContentAlignment.TopCenter
                            .Font = New System.Drawing.Font("Times New Roman", 14, FontStyle.Bold)
                            .Text = caTag
                        End With
                    End If
                Else
                    myChart.Legends(caTag).Enabled = True
                End If