Private Sub Trend_TimeRangeChange(ByVal StartTime As String, ByVal EndTime As String)
Trend2.SetTimeRange StartTime, EndTime