[حريف برمجة]

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

ضع هذا السطر بين :  

كود :

                   If ListName.Items.Count < ComboBoxNum.Text Then Exit For

كود :

 i = 0

                    TextBoxTeam.Text = TextBoxTeam.Text & vbNewLine & vbNewLine & "الفريق" & s + 1

يصبح هكذا :

كود :

i = 0

                   If ListName.Items.Count < ComboBoxNum.Text Then Exit For

                   TextBoxTeam.Text = TextBoxTeam.Text & vbNewLine & vbNewLine & "الفريق" & s + 1