31-01-23, 05:32 PM
وعليكم السلام ورحمة الله وبركاته
كود :
TextBox2.Text = TextBox1.Text
Dim N As Integer = 0
For i = 1 To Len(TextBox1.Text)
TextBox2.Focus()
TextBox2.SelectionLength = n
TextBox2.SelectionLength = 1
' MsgBox("")
If TextBox2.SelectedText = "a" Then
TextBox2.SelectedText = "abc"
N = N + 6
ElseIf TextBox2.SelectedText = "b" Then
TextBox2.SelectedText = "bcd"
N = N + 6
ElseIf TextBox2.SelectedText = "c" Then
TextBox2.SelectedText = "cd"
N = N + 4
End If
Nextقال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
