22-11-13, 11:43 AM
22-11-13, 01:04 PM
كود :
Dim Txt = From T As String In TextBox1.Lines Where T <> ""
TextBox1.Text = ""
For Each S As String In Txt
If TextBox1.Text = "" Then
TextBox1.Text = S
Else
TextBox1.Text &= vbNewLine & S
End If
Next
22-11-13, 02:58 PM
جزاك الله خير أخوي 3booody مشكوووووووووور و ماقصرت