[VB_Coder]

السلام عليكم

- أدرج أداة تايمر . ثم ضع هذا الكود :

كود :

Private Sub Timer1_Timer()

Static I As Integer

If List1.ListCount > 0 And I <= List1.ListCount - 1 Then
   Text1.Text = Trim$(List1.List(I))
   I = I + 1
Else
   I = 0
End If

End Sub