سؤال عن الليست بوكس - نسخة قابلة للطباعة

السلام عليكم ورحمة الله وبركاته

اخواني كيف اجعل سطور الليست بوكس تساوي التكست بالترتيب

يعني الان عندي في لليست بوكس ، الليست بوكس فيها سطور

1
2
3
4
5
علي سبيل المثال ، كيف اجعل التكست يساوي السطر الاول في الليست بعديه السطر الثاني بعديه السطر الثالث وهكذا الي ان تنتهي سطور الليست بوكس

اتمني يكون السؤال واضح واذا ما واضح اوضح اكثر
بارك الله فيكم انتظر الاجابة

كود :

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