Dim Klasse1 As class1
Klasse1.Initialize
Dim Klasse2 As class2
Klasse2.Initialize
Dim Klasse As List
Klasse.Initialize
Klasse.Add( Klasse1)
Klasse.Add( Klasse2)
Dim Version As Int
Dim liMonate As List
liMonate.Initialize2( Array As Int( 1,2,3))
Version = 0
Log( CallSub( Klasse.Get( Version), "Version"))
Log( CallSub3( Klasse.Get( Version), "Get_Year_Map", "2018", liMonate))
Version = 1
Log( CallSub( Klasse.Get( Version), "Version"))
Log( CallSub3( Klasse.Get( Version), "Get_Year_Map", "2018", liMonate))