[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