Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Const filename As String = "F:\tmp\ani_gif.gif"
        Dim rtb As RichTextBox = Me.RichTextBox1
        Dim img As Image = Image.FromFile(filename)
        Me.InsertAnimatedImageIntoRtb(rtb, img)
    End Sub
 
    Private Sub InsertAnimatedImageIntoRtb(ByVal rtb As RichTextBox, ByVal img _
      As Image)
        Dim charpos As Integer = rtb.SelectionStart
        Dim pb As New PictureBox
        Dim pos As Point = Nothing
        pb.Image = img
        pb.Size = img.Size
        pos = rtb.GetPositionFromCharIndex(charpos)
        Debug.WriteLine("charpos: " + charpos.ToString())
        Debug.WriteLine("location: " + pos.ToString())
        Clipboard.SetDataObject(img)
        rtb.Paste()
        pb.Location = pos
        Application.DoEvents()
        rtb.Controls.Add(pb)
    End Sub