Public Structure tDaten
    Dim Teil_A() As String
    Dim Teil_B As Integer
 
    Public Sub New(ByVal Length As Integer)
         If Length < 1 Then Length = 1
         Array.Resize(Teil_A, Length)
         For i As Integer = 0 To Length - 1
             Teil_A(i) = String.Empty
         Next i
    End Sub
End Structure
 
'Array:
Dim glob(10) As tDaten
For i As Integer = 0 To glob.Length - 1
    glob(i) = New tDaten(10)
Next i

Type tFilm
    Datum As Double 'Datum der Vorstellung + zeit
    FilmLang As Byte   'Flag auf Überlänge '1=normal 2=lang
    Saal As Byte 'welchers Kino
    User(1 To 2) As Byte 'welcher Mitarbeiter
    Info(1 To 2) As String * 150 '1=kasse 2=technik
    KATPersonen(1 To 20) As Boolean    'typ personen
    KATwetter As Integer   'typ wetter
    PointWoche As Integer   'setze auf woche
    PointListe As Integer 'setze auf liste in woche
    status As Byte 'wie steht film '0=leer 1=eingefügt 2=zum Verkauf  3=im _
      verkauft 4=abgerechnet
    FreiKarte(0 To 20) As Integer '
    KartenPreis(1 To 4) As Single '1=Normal 2=ermäßigt 3=kinder 4=frei 
    ' 5=UNormal 6=Uermäßigt
    KartenStart(1 To 4) As Long '1=normal 2=ermäßigt
    Besucher(1 To 4) As Long
    Gilde As Long
    Nebenverkauf(0 To 20) As Single
    Bon As Boolean
End Type
 
Type tKasse
    Titel(1 To 20) As tFilm
    GenaralInfo As String * 200
    Geld(1 To 3) As Single '1=Anfang 2=Diff 3=meine zählung
    Fertig As Boolean 'Tag abgerechnet
End Type
 
 
Global gKasse(0 To 1820) As tKasse

    Public Class tFilm
        Public Datum As Double 'Datum der Vorstellung + zeit
        Public FilmLang As Byte   'Flag auf Überlänge '1=normal 2=lang
        Public Saal As Byte 'welchers Kino
        Public User(2) As Byte 'welcher Mitarbeiter
        Public Info(150) As String         '1=kasse 2=technik
        Public KATPersonen(20) As Boolean    'typ personen
        Public KATwetter As Integer   'typ wetter
        Public PointWoche As Integer   'setze auf woche
        Public PointListe As Integer 'setze auf liste in woche
        Public status As Byte 'wie steht film '0=leer 1=eingefügt 2=zum Verkauf _
           3=im _
        'verkauft 4=abgerechnet
        Public FreiKarte(20) As Integer '
        Public KartenPreis(4) As Single '1=Normal 2=ermäßigt 3=kinder 4=frei 
        ' 5=UNormal 6=Uermäßigt
        Public KartenStart(4) As Long '1=normal 2=ermäßigt
        Public Besucher(4) As Long
        Public Gilde As Long
        Public Nebenverkauf(20) As Single
        Public Bon As Boolean
    End Class