Public Type BildInfo
     Pfad As String
     Effekt 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 sEffekt As String, ByVal _
  nZeit As Integer, nDauer As Integer)
      Dim n As Integer
 
      n = UBound(BildTyp) + 1
      With BildTyp(n)
            .Pfad = sPfad
            .Effekt = sEffekt
            .Zeit = nZeit
            .Dauer = nDauer
      End With
End Sub

Private Sub menu_datei_bildhinzufuegen_Click()
  Dim bild_oeffnen As String
  Dim bild_speichern As String
  oeffnen_art.Caption = "bild"
  bild_oeffnen = modul_oeffnen_speichern.AP_DateiOeffnen("", "")
 
  bild_speichern = modul_array.StoreBild(DateiDialogStruktur.lpstrFile, _
    einstellung_effekt, einstellung_zeit, einstellung_dauer)
  schrift_akt_anzahl.Caption = UBound(BildTyp)
End Sub