Public Type BildInfo
     Pfad As String
     Effect As String
     Zeit As Integer
     Dauer As Integer
End Type
 
Public BildTyp(1 To 500) As BildInfo
 
Public Sub StoreBild(Byval sPfad As String, Byval sEffect As
String, _
                                       Byval nZeit As Integer,
nDauer As Integer)
      Dim n As Integer
 
      n = Ubound(BildTyp) + 1
      With BildTyp(n)
            .Pfad = sPfad
            .Effect = sEffect
            .Zeit = nZeit
            .Dauer = nDauer
      End With
End Sub