Kan man inte typ, få en listbox å bläddra nedåt i takt med att man addar saker till den under programmets gång.. så den alltid visar det som e längst ned?? jodå visst kan man det! men jag vet inte hur, vet du?

Om sista raden i listan alltid ska markeras:

Private Sub Command1_Click()
List1.AddItem "Item: " & List1.ListCount + 1
List1.ListIndex = List1.ListCount - 1
End Sub

Om senaste adderade raden i listan ska markeras:

Private Sub Command1_Click()
List1.AddItem "Item" & List1.ListCount + 1
List1.ListIndex = List1.NewIndex
End Sub

Hej
Kan detta lilla exempel vara till nytta

Option Explicit
DefLng A-Z
Private Sub Form_Load()
Dim i
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
List1.ListIndex = i
Next 'i
End Sub

mvh
Sven

Ja de funka jubra! tacksar så myche!

hur gör man olika färger i en listbox? asså på olika rader. eller måste man ha listview då?