Dim Fehler As New ArrayList
 
        ' Fehler hinzufügen:
        Fehler.Add("Der Computer ist zu langsam")
        Fehler.Add("Der Speicher ist defekt")
        Fehler.Add("Es ist Mittagspause - auch Maschinen brauchen Ruhe")
 
        'Fehler entfernen:
 
        Fehler.Remove("Es ist Mittagspause - auch Maschinen brauchen Ruhe")
 
        'Fehler ausgeben:
 
        Label1.Text = String.Empty
 
        '"Der Speicher ist defekt" wird angezeigt
        Label1.Text = Fehler.Item(Fehler.Count - 1)

Gru?

Silver