Dim MyMultiState As PBObjLib.MultiState
Dim returnedMultiState As PBObjLib.MultiState
Dim MyState As PBObjLib.MSState
Dim bRtn As Boolean
Set MyMultiState = Application.ActiveDisplay.SelectedSymbols.Item(1).GetMultiState
with MyMultiState
.StateCount = 3
.ColorBadData = RGB(125, 125, 125)
.BlinkBadData = False
end with
bRtn = MyMultiState.SetPtTagName("sinusoid")
Set MyState = MyMultiState.GetState(1)
bRtn = MyState.DefineState(0, 30, RGB(25, 0, 0))
Set MyState = MyMultiState.GetState(2)
bRtn = MyState.DefineState(30, 80, RGB(100, 0, 0))
Set MyState = MyMultiState.GetState(3)
bRtn = MyState.DefineState(80, 100, RGB(175, 0, 0))