Steema Central

Code: Select all

Private Sub Form_Load()
Dim i As Integer
   With TChart1
            .Aspect.View3D = False
            .AddSeries scPoint
            For i = 0 To 4
                .Series(0).AddXY i, Rnd() * 100, "", clTeeColor
            Next i
            .AddSeries scLine
            .Series(1).SetFunction tfCurveFit
            .Series(1).DataSource = "Series0"
            .Series(1).FunctionType.PeriodStyle = psNumPoints
            .Series(1).FunctionType.PeriodAlign = paFirst
            .Series(1).FunctionType.asCurveFit.FirstCalcPoint = 0
            .Series(1).FunctionType.asCurveFit.FirstPoint = 0
            .Series(1).FunctionType.asCurveFit.PolyDegree = 5
            .Series(1).FunctionType.Period = 1
            .Series(1).CheckDataSource
    End With
End Sub