RichTextBox и большие картинки

[vfedorov]

Вставляю в RichTextBox большие BMP картинки следующими методами:

1.
Dim a As Integer
a = Text1.SelStart
Text1.OLEObjects.Add , , Data.Files(1)
Text1.SelStart = a + 1
Text1.SetFocus

2.
m_picTemp.Picture = LoadPicture(Data.Files(1))
Clipboard.Clear ' Cleat buffer
Clipboard.SetData m_picTemp.Picture, vbCFBitmap ' Send buffer
If err = False Then
Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
SendKeys "+{INSERT}" ' Insert image...
End If

В обоих случаях сильно тормазит (и если перетаскивать картинку по тексту тоже).

Можно ли избежать торможения

Заранее спасибо