få en listbox til at scrolle..

Dim tCount As Long

Private Sub Form_Activate()
  Do
    tCount = tCount + 1
      If tCount = List1.ListCount Then tCount = 0
    List1.TopIndex = tCount
    DoEvents
  Loop
End Sub

Private Sub Form_Load()
Dim i As Long
  For i = 1 To 100
    List1.AddItem \"Test Scroll \" & i
  Next i
End Sub

Private Sub Form_Unload(Cancel As Integer)
  End
End Sub

hmmm... den scroller sgu kun forneden... så den smider dem bare ved siden af dem der allerede er der..

\'Prøv med en timer.

Dim tCount As Long

Private Sub Form_Load()
Dim i As Long
  For i = 1 To 100
    List1.AddItem \"Test Scroll \" & i
  Next i
  Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
  tCount = tCount + 1
    If tCount = List1.ListCount Then tCount = 0
  List1.TopIndex = tCount
End Sub

Jeg har ik rigtig kunne bruge dine svar til noget...
men du får lidt for ulejligheden..

Jeg er ikke sikker på at du har forstået koden rigtig, det der står i Form_Load() er kun lavet for at du kan teste koden.


\'Brug kun:

Dim tCount As Long

Private Sub Form_Activate()
  Do
    tCount = tCount + 1
      If tCount = List1.ListCount Then tCount = 0
    List1.TopIndex = tCount
    DoEvents
  Loop
End Sub