Dim tmpSerie1 As Series = New Series("DummyZumTest1")
tmpSerie1.ChartType = SeriesChartType.Radar
tmpSerie1.ChartArea = "Test"
tmpSerie1.Points.AddXY(1, 1)
Chart.Series.Add(tmpSerie1)
 
Dim tmpSerie2 As Series = New Series("DummyZumTest2")
tmpSerie2.ChartType = SeriesChartType.Radar
tmpSerie2.ChartArea = "Test"
tmpSerie2.Points.AddXY(2, 1)
Try
     Chart.Series.Add(tmpSerie2)
Catch ex As Exception
End Try