示例：DisplayProgressBar 属性

Private Sub ToggleProgressBar()
If Trend1.DisplayProgressBar = True Then
Trend1.DisplayProgressBar = False
Else
Trend1.DisplayProgressBar = True
End If
End Sub