[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
الاخ الغالي عاصم جزاك الله عنا كل خير
مازالت هنا مشكلة لم تلحطها اخي ابو روضة وقد اشرت اليها في ردي وهي 
بعد اضافة العلامة ستضطر لوضع الماوس مرة اخرى في نهاية مربع النص لتتابع الكتابة
ولحل هذا الاشكال عدل كود الاخ عاصم الى التالي

كود :

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Clipboard.SetText("،")
       TextBox1.Paste()
       TextBox1.Select(TextBox1.TextLength, 0)
       TextBox1.Focus()
   End Sub

او يمكنك استخدام هذا الكود وهو مختصر سطر

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       TextBox1.Text = TextBox1.Text + "-: "
       TextBox1.Select(TextBox1.TextLength, 0)
       TextBox1.Focus()
   End Sub

اليك المثال