Limpiar DtColor redundante

-Se estaba creando un DataTable cuando solo se ocupa un String[]
-Se metió a ClsPaginas, esto limpia bastante el código

Compras/RepCompras.aspx.vb

@@ -1,5 +1,4 @@
-
-Option Explicit On
+Option Explicit On
 Option Strict On
 
 Imports System.Data
@@ -7,9 +6,9 @@ Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_RepCompras
-    Inherits ClsPaginas
+    Inherits ClsPaginas
 #Region "PROPIEDADES"
-
+
     Private Property TCEspecifico As Double
         Get
             If ViewState("TCEspecifico") Is Nothing Then
@@ -22,15 +21,6 @@ Partial Class Compras_RepCompras
             ViewState("TCEspecifico") = value
         End Set
     End Property
-
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property DtCompras As DataTable
         Get
             Return DirectCast(ViewState("DtCompras"), DataTable)
@@ -163,8 +153,6 @@ Partial Class Compras_RepCompras
 
         'Carga Tipo Centro de Costo
         CargaTipoCentroCosto()
-
-        CreaDataTableColor()
     End Sub
 
 
@@ -418,11 +406,11 @@ Partial Class Compras_RepCompras
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         GenerarPDF()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "GRAFICA"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If Not DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
             Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
@@ -433,78 +421,6 @@ Partial Class Compras_RepCompras
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -526,13 +442,11 @@ Partial Class Compras_RepCompras
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
-                    RowColorIndex = 0
-                End If
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
             End If
         Next