Public Class clsGrafica
    Dim clCpx As New clsComplejo()
    Dim miTabla As DataTable
    Dim miDSet As DataSet
    'Public Sub sbColoresGrid(ByVal miDGrid As DataGrid)
    '    With miDGrid

    '    End With
    'End Sub
    'Public Sub sbMuestraGrafica(ByVal SQL As String, ByRef miChar As AxMSChart20Lib.AxMSChart, ByVal miTexto As String)
    '    Dim intFlag As Integer

    '    intFlag = 0
    '    With miChar
    '        .Text = miTexto
    '    End With

    '    miDSet = clCpx.fdtDataSet(SQL)
    '    miTabla = clCpx.fdtDataTable(SQL)

    '    miChar.DataSource = miDSet
    'End Sub
End Class