Sub InsertImageIntoRtb(ByVal rtb As RichTextBox, ByVal imgPath As String)   Dim img As New System.Drawing.Bitmap(imgPath)   InsertImageIntoRtb(rtb, img) End Sub
 
 
 
 
  Sub InsertImageIntoRtb(ByVal rtb As RichTextBox, ByVal img As Image)   Clipboard.SetDataObject(img)   rtb.Paste() End Sub |