示例：StartTime 和 UseDefaultStartTime 属性

Private Sub SetStartTime()
' Add an overlay to the overlays collection
Trend1.Overlays.Add ("Overlay1")
' Overlay must be anchored by time to use the StartTime property
Trend1.Overlays.Item(1).AnchorType = rstOverlayAnchorTypeTime 
Trend1.Overlays.Item(1).StartTime = #10/25/99 2:25:00 PM# 
' Use the value from the StartTime property, not the default value
Trend1.Overlays.Item(1).UseDefaultStartTime = False 
End Sub