Как вставить в RTB Анимацию?

[John_mc]

Как вставить в RTB Анимацию?
Как вставить обычную картинку я знаю, вот так:
Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_PASTE = &H302
Private Sub Command1_Click()

Clipboard.Clear
Clipboard.SetData Picture1.Picture


SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub

А АНИМАШКУ ТО КАК???

[Tarik]

Думается мне, что никак Или можешь напихать в форму много пикчурбоксов и менять их по таймеру... Знаю, знаю, это - через Ж

[RayShade]

А вставляй туда анимированный GIF И все. Точно также копируй его в буфер и вставляй.