State.CreateSubState


CreateSubState() As State

ED	avaliable
RT	not used

Remarks

Creates a new substate.

Sample


Sub zenOn_CreateSubStateExample(ByRef zState As State)

	Dim zSubState As State

	'Initialize the zSubState by creating a new substate
	Set zSubState = zState.CreateSubState

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

End Sub

See Also