[xebrahimx]

السلام عليكم ورحمة الله
استخدم listbox اولا لعرض محتويات التكست كعناصر يمكن التنقل بينهم

كود :

Dim ff As Long
2   Dim line As String
3   ff = FreeFile
4   Open App.Path & "\list.txt" For Input As #ff
5   Do While Not EOF(ff)
6          Line Input #ff, line
7          'make sure we're not adding a blank line
8          If Len(line) Then List1.AddItem line
9   Loop
10  Close #ff

ثم
للتنقل بين عناصر listbox

كود :

On Error Resume Next

Dim a As Integer
a = List1.ListIndex
List1.Selected(0) = True

List1.ListIndex = (a) + 1

ولعرض كل عنصر تلو الاخر فى text

كود :

On Error Resume Next

Dim a As Integer
a = List1.ListIndex
List1.Selected(0) = True

List1.ListIndex = (a) + 1