[fireswored1]

السلام عليكم ورحمة الله وبركاته

اخوتي الاعزاء 

الان يوجد لدي ليست بوكس يوجد به اربع اجابات احتاج كود لاستراد الاجبات من الليست بوكس الي 4 ليبول كل ليبول يكون اجابة من هذا الليست 

وجزاكم الله خيرا 

[asmarsou]

و عليكم السلام و رحمة الله و بركاته
اذا كانت الاجابات تأخذ مرتبة كما هي عليه في الليست بوكس  فهذا سيفي بالغرض
و احرص على استبدال كلمة تكست بوكس بكلمة ليبل على النحو الذي سردته في نص سؤالك

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      For i = 1 To 4
           Me.Controls(String.Format("TextBox{0}", i)).Text = ListBox1.Items(i - 1).ToString
       Next
   End Sub

[fireswored1]

مشكور اخي الكريم ولكن لم يعمل الكود مرفق صورة الخطاء

[asmarsou]

هذا النموذج مجرب و يعمل كما سبق و ان ذكرت لك

[fireswored1]

جزاك الله خيرا اخي الكريم اشتغل كدا