[asto]

شكرا

لكنني استعملته كالتالي :

كود :

Text1.Text = Drive1.ListCount - 1
Dim zzr, y, I As Integer
zzr = Text1.Text
On Error Resume Next: Err.Clear
For y = 0 To zzr
I = y
Drive1.ListIndex = I
Text2.Text = Drive1.List(I)
next y