When I use MSChart I can't see true legend names, I can only see:

RED_LINE - C1
GREEN_LINE - C2
BLUE_LINE - C3


How can I change C1-C3 to my own? Here is my code:

Dim arrData(1 To 12, 1 To 5)


For i = 1 To 12
arrData(i, 1) = Left(MonthName(i), 3)
arrData(i, 2) = frmDevelop.txtBodyT + i * (frmDevelop.txtBodyT2 - frmDevelop.txtBodyT) / 12 'Series 1
arrData(i, 3) = frmDevelop.txtHandT + i * (frmDevelop.txtHandT2 - frmDevelop.txtHandT) / 12 'Series 2
arrData(i, 4) = frmDevelop.txtLegT + i * (frmDevelop.txtLegT2 - frmDevelop.txtLegT) / 12 'Series 3
arrData(i, 5) = Body


Next
frmPrgDev.MSChart1.RowCount = 12
frmPrgDev.MSChart1.ColumnCount = 3
frmPrgDev.MSChart1.ChartData = arrData
frmPrgDev.MSChart1.ShowLegend = True