Spline chart using mutiple series and PointType.Image

 
            SeriesList sList = new SeriesList();
            sList.ChartType = ChartType.Spline;

            Random r = new Random();
            for (int i = 0; i < 4; i++)
            {
                Series sr = new Series();
                sr.Points.Width = 8;

                if (i == 0) sr.Points.PointType = PointType.FillRectangle;
                if (i == 1)
                {
                    sr.Points.PointType = PointType.Image;
                    sr.Points.PointImage = @"C:\Documents and Settings\Administrator\My Documents\My Pictures\star.gif";
                }
                if (i == 2) sr.Points.PointType = PointType.FillCircle;
                if (i == 3) sr.Points.PointType = PointType.FillTriangle;

                for (int x = 0; x < 5; x++)
                {
                    SeriesItem item = new SeriesItem();
                    item.Name = "item" + x.ToString();
                    item.YValue = r.Next(50);

                    sr.items.Add(item);
                }
                sList.SeriesCollection.Add(sr);
            }
 
            this.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue;
            this.hHippoChart1.DesignType = ChartDesignType.Simple;
            this.hHippoChart1.SeriesListDictionary.Add(sList);
            this.hHippoChart1.DrawChart();   

 Dim sList As New SeriesList()
sList.ChartType = ChartType.Spline

Dim r As New Random()
For i As Integer = 0 To 3
    Dim sr As New Series()
    sr.Points.Width = 8
   
    If i = 0 Then
        sr.Points.PointType = PointType.FillRectangle
    End If
    If i = 1 Then
        sr.Points.PointType = PointType.Image
        sr.Points.PointImage = "C:\Documents and Settings\Administrator\My Documents\My Pictures\star.gif"
    End If
    If i = 2 Then
        sr.Points.PointType = PointType.FillCircle
    End If
    If i = 3 Then
        sr.Points.PointType = PointType.FillTriangle
    End If
   
    For x As Integer = 0 To 4
        Dim item As New SeriesItem()
        item.Name = "item" & x.ToString()
        item.YValue = r.[Next](50)
       
        sr.items.Add(item)
    Next
    sList.SeriesCollection.Add(sr)
Next

Me.hHippoChart1.Titles.Label.ForeColor = Color.SteelBlue
Me.hHippoChart1.DesignType = ChartDesignType.Simple
Me.hHippoChart1.SeriesListDictionary.Add(sList)
Me.hHippoChart1.DrawChart()