Dim x As Double, y As Double
        Dim i As Integer, h As Integer
        'myPane.XAxis.Scale.Format = "dd-MMM-yy"
        x = -1
 
 
        For Each item In ListBox2.Items
            y = item
            x = x + 1
            list.Add(x, y)
        Next
 
 
        Dim myCurve As LineItem = myPane.AddCurve("My Curve", list, Color.Blue, _
          SymbolType.None)