[ناجي إبراهيم]

السلام عليكم...

كود :

Private Sub Command2_Click()
    Dim Idx1 As Long
    Dim Idx2 As Long
    Dim AStart As Long
    
    AStart = 0
    Do While AStart < Len(RichTextBox1.Text)
        Idx1 = RichTextBox1.Find("(", AStart)
        If Idx1 = -1 Then
            Exit Do
        Else
            Idx2 = RichTextBox1.Find(")", Idx1 + 1)
            If Idx2 = -1 Then
                Exit Do
            Else
                ' من المهم أن نمسح القوس الثاني قبل الأول
                RichTextBox1.SelStart = Idx2
                RichTextBox1.SelLength = 1
                RichTextBox1.SelText = ""
                
                RichTextBox1.SelStart = Idx1
                RichTextBox1.SelLength = 1
                RichTextBox1.SelText = ""
                
                AStart = Idx2 + 1
            End If
        End If
    Loop
    RichTextBox1.SelStart = 0
    RichTextBox1.SelLength = 0
End Sub

نرجو الاستفادة و السلام.