سعود كتب :لا ما يتفع كذا ابغى زي طريقتي هذي كتبت الرمز من غير مربع حوار
على كل حال راح اجرب webbrowser

Easy 4ever كتب :أخوي انا عطيتك مثال الإضافه ولاكن انت تستطيع التحايل عليه
بدل من وضع مربع الحوار يذهب للـ Icon تلقائي عند إدخال رمز معين

يكون في شرط في حدث التغيير على Richtextbox
بحيث إذا واجهك رمز مثلا : ) قم باستبداله بإيقونة وهكذا ..

يعني من كودي السابق أقتبس فقط كود الإضافة

Abu Ehab كتب :تقلقش ... دقيقتين راح احل المشكلة أن شاء الله .

just.coder كتب :جربت دا ولا لا

كود :

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        On Error Resume Next
        If RichTextBox1.Find(":)") > -1 Then
            Dim t() As String
            t = RichTextBox1.Text.Split(":)")
            Dim i As Integer
            For i = 1 To t.Length - 1
                Dim ffo As String = ":)"
                If RichTextBox1.Find(":)") > -1 Then
                    Dim ClipboardContents As String = Clipboard.GetText
                    RichTextBox1.SelectionStart = ":)"
                    RichTextBox1.SelectedText = ""
                    Clipboard.SetImage(ImageList1.Images.Item(21))
                    RichTextBox1.Paste()
                    Clipboard.SetText(ClipboardContents)
                End If
            Next
        End If
    End Sub