Sub BindChart(ByRef dvwDataView As DataView, ByVal bMonthView As Boolean)

            'Bind Chart Data
            objChart.Visible = True

            Dim arrInt As Integer = 0
            objChart.ImageUrl = "/ClientAdministration/ManagementConsole/Images/Reporting/Operational_MonthlySummary_" & ClientAdministration.UserProfile.AdministratorId.ToString() & ".png"

            objChart.Series("Net Invoiced Amount").Points.Clear()
            objChart.Series("Received Amount").Points.Clear()
            If bMonthView Then
                objChart.Width = New Unit("1500px")
                For arrInt = 0 To dvwDataView.Count - 1
                    objChart.Series("Net Invoiced Amount").Points.AddXY(MonthName(dvwDataView(arrInt)("Month").ToString(), True) & " " & dvwDataView(arrInt)("Year").ToString(), dvwDataView(arrInt)("NetInvoicedAmount") * 10 / 11)
                    objChart.Series("Received Amount").Points.AddY(dvwDataView(arrInt)("ReceivedAmount") * 10 / 11)
                Next
            Else
                objChart.Width = New Unit("800px")
                For arrInt = 0 To dvwDataView.Count - 1
                    objChart.Series("Net Invoiced Amount").Points.AddXY(WeekdayName(Weekday(CDate(dvwDataView(arrInt)(0).ToString()), Microsoft.VisualBasic.FirstDayOfWeek.System), True) & " " & CDate(dvwDataView(arrInt)(0)).ToString("dd MMM yy"), dvwDataView(arrInt)(1) * 10 / 11)
                    objChart.Series("Received Amount").Points.AddY(dvwDataView(arrInt)(2) * 10 / 11)
                Next
            End If

        End Sub