Creacion de Graficos en VB 6.0 con mschart

Objeto: Microsoft Chart Control 6.0.
Nombre: chart.
Ejercicio: Graficar las notas de los estudiantes.
Lo primero es modificarle el número de columnas del objeto mediante su
atributo llamado columncount y le asignamos el valor de 1.
Creamos un formulario, insertamos 2 botones, 2 listas, 2 text y un gráfico, el
text1 será para leer la nota, el 2 para leer el nombre del estudiante, el boton1 es para
agregar la nota leída en la lista1, el segundo para agregar el nombre en la lista2.
Código:
Private Sub Command1_Click()
List1.AddItem Text1.Text
List2.AddItem Text2.Text
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
chart.RowCount = List1.ListCount
For i = 0 To List1.ListCount - 1
chart.Row = i + 1
chart.Data = Val(List1.List(i))
chart.RowLabel = List2.List(i)
Next i
End Sub

Explicación del Código
 El atributo RowCount es para indicar la cantidad de columnas que tendrá
nuestro gráfico.
 El Row es para indicar la columna que vamos a graficar. En los gráficos se
empieza desde la columna 1, debido a esto colocamos i+1.
 El atributo Data es para indicar el valor que le vamos a asignar a esa columna.
 El atributo RowLabel es una etiqueta que se coloca debajo de la barra o
columna del grafico con que estamos trabajando.