09-08-16, 05:17 PM
تفضل
كود :
If RichTextBox1.TextLength <> 0 Then
Dim I As Integer = RichTextBox1.SelectionStart
RichTextBox1.Text = RichTextBox1.Text.Remove(If(I = 0, RichTextBox1.TextLength - 1, I - 1), 1)
RichTextBox1.Focus()
End If End If
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد