El control que se utiliza es el MsChart. No se instala de forma predeterminada, debes entrar a agregar o quitar programas en el panel de control y luego lo mismo en visual basic y se usa de la siguiente manera. Establece los renglones y columnas MsChart1.Title = "Titulo del Gráfico" MsChart1.ColumnCount = 3 'Número de series o renglones. MsChart1.RowCount = 4 'Número de columnas. MsChart1.Column=1 MsChart1.ColumnLabel = "Serie 1" MsChart1.Column=2 MsChart1.ColumnLabel = "Serie 2" MsChart1.Column=3 MsChart1.ColumnLabel = "Serie 3" MsChart1.Row=1 MsChart1.RowLabel ="Bim 1" 'Columna 1(Bimestre) MsChart1.Row=2 MsChart1.RowLabel ="Bim 2" 'Columna 1(Bimestre) MsChart1.Row=3 MsChart1.RowLabel ="Bim 3" 'Columna 1(Bimestre) MsChart1.Row=4 MsChart1.RowLabel ="Bim 4" 'Columna 1(Bimestre) 'Ahora establece los datos que forman el gráfico For sIndRenglon = 1 to 3 For sIndColumna = 1 to 4 MsChart1.Column = sColumna MsChart1.Row = sRenglon MsChart1.Data = Int(10000 * Rnd + 1) 'Calcula un número entre 1 y 10000 Next Next Hay muchas cosas más que puedes hacer con él.