problemas con Chart1 Vb.net

[matarasky]

Hola estoy trabajando con visual basic 2010, y trate de agregar un
gráfico bonito igual en 3d. solo tiene 1 series.
estoy sacando los puntos de un listview.

Código:

        Try
            If ListView1.SelectedItems.Count > 0 Then 'Si hay algún item seleccionado
                Dim xvalue As Integer = 0
                Dim yValue As Double
                ' Chart1.Series.Clear()

                Dim pointIndex As Integer
                For pointIndex = 0 To ListView1.SelectedItems.Count - 1
                    If ListView1.Items(pointIndex).Selected = True Then
                        xvalue = Integer.Parse(ListView1.Items(pointIndex).ToString.Replace("ListViewSubItem: {", "").Replace("ListViewItem: {", "").Replace("}", ""))
                        yValue = Double.Parse(ListView1.Items(pointIndex).SubItems(1).ToString.Replace("ListViewSubItem: {", "").Replace("ListViewItem: {", "").Replace("}", ""))
                        Chart1.Series("Series1").Points.AddXY(xvalue, yValue)
                        Chart1.Series("Series1").ChartType = SeriesChartType.FastLine
                        Chart1.Series("Series1").IsVisibleInLegend = False
                    End If
                Next
            Else
                MsgBox("No ha seleccionado ninguna actividad de la lista")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try