Example: Upper/LowerBoundPenIndex properties
Private Sub SetShading() ' For this example to work, trend must not have any pens previously added Trend1.Pens.Add "TankLevel", "", "", 0, 100 Trend1.Pens.Add "25", "Low Alarm", "", 0, 100 Trend1.Pens.Add "75", "High Alarm", "", 0, 100 Trend1.Pens.Item(1).LowerBoundPenIndex = 2 Trend1.Pens.Item(1).UpperBoundPenIndex = 3 End Sub
Provide Feedback