ارسال آیتم به لیست باکس

[dadsara]

سلام
در فرم موجود در فایل ضمیمه قصد دارم بعد از زدن کلید موجود و انتخاب تعدادی از فایلها با استفاده از موس و کلید Open آدرس همه فایلها در لیست باکس موجود در فرم قرار گیرد

[مهدی قربانی]

سلام
نمونه جنابعالي اصلاح شد ببينيد روش مورد نظر شما همينه ؟

[dadsara]

سلام
در نمونه اصلاح شده زمانی که کلید حذف از لیست را می زنم می خواهم ابتدا مقدار آن داخل Text4 ریخته شود سپس حذف شود
لطفا بفرمائید مشکل کار کجاست ؟

[dadsara]

در نمونه اصلاح شده زمانی که کلید حذف از لیست را می زنم می خواهم ابتدا مقدار آن داخل Text4 ریخته شود سپس حذف شود

سلام
ضمن تشکر از لطف دوستان ، باتوجه به قوانین سایت بنده به جواب رسیدم ، لازم دیدم کد مورد نظر را اینجا بگذارم تا دوستان دیگر هم استفاده کنند

Dim i
For i = 1 To Me.List2.ListCount
Text4 = List2.ItemData(0)
Me.List2.RemoveItem (0)
Next i