示例：SetStartTimeAndSpan 方法

Private Sub CommandButton1_Click()
Dim DT As Date
'Must set the trend to pause mode. Unable to adjust x-axis time while scrolling
Trend1.Scroll = False
' Variable for the XAxis Start Time
DT = #10/25/99 10:30:00 AM#
' Set Range to 0 days, 1 hour, 30 minutes, 0 seconds, 0 milliseconds
Trend1.XAxis.SetStartTimeAndSpan DT, 0, 0, 1, 30, 0, 0
End Sub