示例：TimeFormat 属性

Private Sub GetTimeFormat()
If Trend1.TimeFormat = rstTimeFormat12Hour Then
MsgBox "The Trend is using 12 hour time format"
Else If Trend1.TimeFormat = rstTimeFormat24Hour Then
MsgBox "The Trend is using 24 hour time format"
Else If Trend1.TimeFormat = rstTimeFormatSystem Then
MsgBox "The Trend is using the system time format"
End If
End Sub