State.MoveSubState



MoveSubState(vID As Variant,bDirection As BOOL) As BOOL

Parameters

vID As Variant
Index of the substate.
bDirection As BOOL
Defines the direction:
ED
avaliable
RT
not used

Remarks

Moves the substate within the state one position up- or downwards.

Sample


Sub zenOn_MoveSubStateExample()

	Dim zRema As Rema
	Dim zState As State
	Dim i As Integer

	Set zRema = MyWorkspace.ActiveDocument.Remas.Item(0)
	Set zState = zRema.StateItem(1)

	zState.MoveSubState 2, 0

	For i = 0 To zState.GetSubStateCount - 1
		Debug.Print zState.SubStateItem(i).Color
	Next i

End Sub




See Also

State