Private Sub Command1_Click()
TChart1.Axis.Bottom.Maximum = 1000
TChart1.Axis.Bottom.Minimum = 1
TChart1.Axis.Bottom.AutomaticMinimum = False
TChart1.Axis.Bottom.AutomaticMaximum = False
TChart1.Axis.Left.Maximum = 1000
TChart1.Axis.Left.Minimum = 1
TChart1.Axis.Left.AutomaticMinimum = False
TChart1.Axis.Left.AutomaticMaximum = False
TChart1.Series(0).asFastLine.Stairs = True
For i = 0 To 1000
TChart1.Series(0).AddXY i, i, Format(Now, "hh:mm:ss"), RGB(255, 0, 0)
Next
TChart1.Legend.Visible = False