Listbox mit den neuesten 10 Einträgen ?

[nerddestroyer]

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!

 

[wincnc]

Hallo, versuch´s mal so:

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