[3booody]

ضع هذا الكود في زر بوتون

كود :

Dim count As Integer = TextBox1.Text.Split(vbNewLine).Count
       Dim txt As String = TextBox1.Text.Replace(vbNewLine, " new Line ")
       Clipboard.SetText(txt) 'نسخ الى الوندوز
       Label1.Text = count
       MsgBox(txt)