Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' لتملأ الليست بوكس الأولي بالارقام التي تريدها
For i As Integer = 1 To 100
ListBox1.Items.Add(i.ToString)
Next
End Sub
Private Function AddWord(word As String, itemText As String) As String
Return word + itemText
End Function
Private Function AddWord(word As String, lb As ListBox) As String()
Dim result As List(Of String) = New List(Of String)()
If lb.Items IsNot Nothing Then
For i As Integer = 0 To lb.Items.Count - 1
Dim item As String = TryCast(lb.Items(i), String)
result.Add(AddWord(word, item))
Next
End If
Return result.ToArray
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim s As String = TextBox1.Text
If Not String.IsNullOrEmpty(s) Then
ListBox2.Items.Clear()
Dim strings As String() = AddWord(s, ListBox1)
For i = 0 To strings.Length - 1
ListBox2.Items.Add(strings(i))
Next
End If
End Sub
End Class
![[صورة مرفقة: 1497834736671.png]](http://www.arabsharing.com/uploads/1497834736671.png)
![[صورة مرفقة: blush.gif]](https://vb4arb.com/vb/images/smilies/blush.gif)