[Arquan_Grave]

سهله جدا أخي 

تفضل هذا الفكره الذي بتريدها 

كود :

       ListBox1.Items.Clear()
       If TextBox2.Text Is Nothing Then
           MsgBox("أكتب عدد مرات التكرار")
       Else

           For i As Integer = 1 To CInt(TextBox2.Text)

               ListBox1.Items.Add(TextBox1.Text)
           Next
       End If

textbox1 = الى هتكتب فيه الجمله المراد كتابتها 
textbox2 = عدد مرات التكرار أخي 
يارب أكون أفدك لا تنسي  التقيم حبيبي عشان انا جديد هون