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 |