State.SubStateItem


SubStateItem(vID As Variant) As State

Parameters

vID As Variant: Index of the substate.

ED	avaliable
RT	avaliable

Remarks

Returns a state object, containing the selected substate of the current state.

Sample


Sub zenOn_SubStateExample(ByRef zState As State)

	Dim zSubState As State

	'Initialize the zSubState with the first substate of zState
	Set zSubState = zState.SubStateItem(1)

	'e.g. change the color of the substate
	zSubState.Color = RGB(0, 128, 128)

End Sub

See Also