کار با دو لیست

[tehran2009]

سلام دوستان
برنامه ای که ضمیمه کردم 2تا لیست داره که لیست1 را توی تکست1 و لیست2 را توی تکست2 دونه دونه منتقل میکنه. حالا مشکل من اینه می خوام وقتی لیست دوم به پایان رسید لیست1 بره سراغ کلمه بعدی و لیست 1 دوباره شروع کنه به یکی یکی وارد کردم کلمات (البته با هموم کامندی که روش کلیک می کنیم)
نمونه را دانلود کنید سوالم توش واضحه

[daniyal_1363]

سلام

منظورت رو درست نرسوندی

ولی فکر کنم میخواستی اینجوری بشه

دانلود کن ببین

[tehran2009]

مرسی :بوس:

دقیقاً همینو می خواستم فقط می خوام آخر لیست 1 که به پایان برسه یه msgbox هم بزارم که بگه لیست پایان یافت.
میشه راهنمایی کنی ممنونت میشم :بوس:

[daniyal_1363]

مرسی :بوس:

دقیقاً همینو می خواستم فقط می خوام آخر لیست 1 که به پایان برسه یه msgbox هم بزارم که بگه لیست پایان یافت.
میشه راهنمایی کنی ممنونت میشم :بوس:

این قسمت از برنامه رو اینجوری تغییر بده




If List1.ListIndex + 1 = List1.ListCount Then
i2 = 0
i1 = 0
l2 = True
MsgBox "پايان ليست 1 و 2"
End If