Arrays inside Types?

[Kernelpanic]

Same program: Why is the first entry always duplicated here ( summe = Liste(1).Index + Liste(2).Index )? Does anyone have an explanation for this? Thanks!

Code: (Select All)

Type Thing

  Namez As String

  Index As Integer

End Type



Dim Liste(4) As Thing



Dim As Integer wert, wert2, summe

Dim As String namen



Locate 2, 3

Input "Ganze Zahl eingeben : ", wert

Liste(1).Index = wert



Locate 3, 3

Input "Zweite Zahl eingeben: ", wert2

Liste(2).Index = wert



summe = Liste(1).Index + Liste(2).Index

'summe = wert + wert2