Rich textbox....

[moinkhan]

OK here's the code...

Dim x As New OLEObject
r1.OLEObjects.Add , , "d:\heq.bmp"
'r1.AutoVerbMenu = False
r1.SelStart = Len(r1.SelText)
Set x = r1.OLEObjects.Add(, , "d:\java.gif")

This is successfully embedding bmp and gif into RichTextbox but when adding GIF.. it is also opening the program gif file is associated with..
Is there any way to stop this program from opening?