Global Liste As cEnum
Global Listarray As cEnumArray
Sub tst()
Set Liste = New cEnum
Liste.Prop1 = 1
Liste.Prop2 = 2
Liste.Prop3 = 3
Liste.Prop4 = 4
Liste.Prop5 = 5
Liste.Prop6 = 6
MsgBox (Liste.Prop1)
MsgBox (Liste.Prop2)
MsgBox (Liste.Prop3)
MsgBox (Liste.Prop4)
MsgBox (Liste.Prop5)
MsgBox (Liste.Prop6)
End Sub