[Anas Mahmoud]

هل هذا ما تقصده ؟

كود :

       TextBox1.Text = ListBox1.Items(0)
       TextBox2.Text = ListBox1.Items(1)
       TextBox3.Text = ListBox1.Items(2)
       TextBox4.Text = ListBox1.Items(3)

اذا كان الامر كذلك بامكانك ان تضع مربعات النص في مصفوفة ومن ثم تستعمل For Loop لتنفيذ الامر بغذ النظر عن عدد ال textboxes بدون تكرار اسطر

كود :

       Dim TextBoxes() As TextBox = {TextBox1, TextBox2, TextBox3, TextBox4}

       For i As Integer = 0 To TextBoxes.Length - 1
           TextBoxes(i).Text = ListBox1.Items(i)
       Next