Private staticSequence               As Dictionary

'/**
' * Initialisiert die Sequenzen
' * @param  String      Name der Sequenz
' */
Public Function Sequence(ByVal iSeqName As String) As Sequence
	Dim inst As Sequence
	If staticSequence Is Nothing Then Set staticSequence = New Dictionary
	If Not staticSequence.Exists(iSeqName) Then
		Set inst = New Sequence
		Call inst.initMe(iSeqName)
		Call staticSequence.Add(iSeqName, inst)
	End If
	Set Sequence = staticSequence.item(iSeqName)
End Function