كيف اضع مجموعة من محتوبات 4 كتب في richtext

يرجى تحديد الكود المطلوب بالضبط في هذه العملية

على أي حال

نفترض أن الملفات تحمل الأسماء 1.rtf و 2.rtf و 3.rtf و 4.rtf وأنها موجودة في المجلد الذي يحتوي على الملف التنفيذي

- لإضافة أربع بنود في اللست بوكس ضع هذا الكود في حدث تحميل النموذج

For i = 1 To 4
List1.AddItem (i)
Next

وهذا الكود لتحميل الملفات في مربع النص

ضعه في حدث النقر على اللست بوكس

RichTextBox1.LoadFile (App.Path & "\" & List1.ListIndex + 1 & ".rtf")

طبعاً الكود قابل للتعديل حسب رغبتك

مشكور على الاجابة

ارجو ان تيق معي بعد التطبيق مع بالغ الشكر