Allora, devi usare il componente MSChart.
Ti crei un array di interi, così:
codice:
Dim arr(x, y) as Integer
Dove x è uguale al numero max di righe meno 1, e y è uguale al numero max di colonne meno 1. Per riga si intende un "campionamento", cioè se questo è il grafico:
codice:
 |
 |
 |
 |  .         .
 | / \       /
 |/   \     /
 |     .---.
-|---------------
 |
I punti segnati con il "." sono righe. Le colonne sono praticamente le righe.
Poi, trasferisci i dati in questo array, prendendoli per esempio da un DB.
Infine fai
codice:
 
MSChart1.ChartData = arr
Poi per cambiare i nomi delle colonne (cioè praticamente delle linee sul grafico) nella legenda puoi fare così:
codice:
MSChart1.Column = 1
MSChart1.ColumnLabel = "Acqua"
MSChart1.Column = 2
MSChart1.ColumnLabel = "Aria"
MSChart1.Column = 3
MSChart1.ColumnLabel = "Vino"
Tanto per fare un esempio. Per mostrare la legenda devi settare la proprietà ShowLegend a True