[malek369]

(03-12-19, 12:42 PM)3booody كتب :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Num As Integer = 1231231
       For i As Integer = 0 To 100
           Application.DoEvents()
           TextBox1.Text &= Num & Format(i, "000") & vbNewLine
       Next
   End Sub

اخي مشكور بس انا بدي ياخد من ال textbox ويحطهم ب listbox 

يعني مثلا كتبت في ال textbox هيك (((          123|123|123   ))) او اسم او اي شيء مش ضروري رقم او اشي ثابت
يطلعو هيك بليست بوكس  
123|123|123|001
123|123|123|002
123|123|123|003
123|123|123|004
123|123|123|005
123|123|123|006