Servus,

möchte folgendes realisieren:

Habe eine Listbox. Da sollen maximal 10 Einträge drin sein. Wenn der 11te Eintrag eingefügt wird, dann soll der erste wieder gelöscht werden. D.h. ein neuer Eintrag soll den ältesten Eintrag verdrängen.

Am schönsten wäre es auch noch, wenn der neueste Eintrag ganz oben steht, und die älteren unten.

Weiß jemand rat?

Danke!

Hallo, versuch´s mal so:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Nummer As Integer   Private Sub Command1_Click()     Nummer = Nummer + 1     If List1.ListCount > 9 Then     List1.RemoveItem 9   End If     List1.AddItem "Eintrag " & CStr(Nummer), 0   End Sub