Вставить графику в RichTextBox

[Ruslan Demidow]

В тестовом проекте при заполнении текстом RichTextBox'а я отслеживаю сокращения смайлов и если есть вставляю картинку в текст так:

Код: Выделить всё

Private Sub PasteSmail(ByVal NumOfSmail As Integer)
    Dim a
    a = MsgTextBox.SelStart
    MsgTextBox.OLEObjects.Add , , "C:\MyDoc\smail" & NumOfSmail & ".bmp"
    MsgTextBox.SelStart = a + 1
End Sub


И


Вот так у меня в RichTextBox вставляется картинка.
И после вставки автоматом выскакивает приложение ассоциированное с файлами картинок.

А хотелось бы чтобы просто вставилась (типа как иконка) и больше ничего. Соответственно поровнее.

Как сделать?

[ChelDm]

Я если найду, то на мыло скину, но посмотри на сайти в преперах я где то брал, но не помню

[Ruslan Demidow]

Я если найду, то на мыло скину, но посмотри на сайти в преперах я где то брал, но не помню

Спасибо.