Liste deki elemanları sırasıyla seç ve oku

'Liste Kutusu içindeki elemanları sırası ile seçtirmek
'Basit bir kaç kodla bu işlem yerine getirilir.
'Belki işinize yarar
'------------------------------------------
'Gereken nesneler
'Timer 1 Adet
'Listbox 1 Adet
'CommandButton 1 Adet
'------------------------------------------
'
'Aşağıdaki kodu,kod penceresine olduğu gibi kopyalayın.


'------------------------------------------

Private Sub Form_Load()
Command1.FontBold = True
Command1.Caption = "&BAŞLA"
Timer1.Enabled = False
    With List1
    .FontBold = True
    .AddItem "Abdulkadir Ünal"
    .AddItem "Basit Bir Kod"
    .AddItem "Gönderdi,"
    .AddItem "Bazı Arkadaşlarımızın"
    .AddItem "İşine Yarayabileceği Düşüncesiyle..."
    .AddItem "Eklendi 1"
    .AddItem "Eklendi 2-"
    .AddItem "Eklendi 3---"
    .AddItem "Eklendi 4-----"
    .AddItem "Eklendi 5-------"
    .ListIndex = -1
   End With
End Sub

Private Sub Command1_Click()
Timer1.Interval = 10
Timer1.Enabled = True

End Sub


Private Sub Timer1_Timer()
On Error Resume Next
   With List1
    .ListIndex = .ListIndex + 1
        If .ListIndex = .ListCount - 1 Then
            MsgBox "Sıra İle Okuma İşlemi Yerine Getirildi..!!", vbInformation, "İŞLEM YAPILDI"
            .ListIndex = -1
            Timer1.Enabled = False
        End If
   End With
End Sub