[2008] GIF doesn't work?

[mahammad()]

Hi , all

I am working on project that need to insert GIF pictures in RichTextBox but the GIF doesn't work or move!
this is the code i used

Dim data As DataObject
data = Clipboard.GetDataObject
Clipboard.Clear()
Clipboard.SetImage(Image.FromFile("D:\image.gif"))
document.Paste()
Clipboard.SetDataObject(data)

so What's the problem?

help me please
thanks in advance