Dim odlg As OpenFileDialog
Try
odlg = New OpenFileDialog
If odlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
Dim image_a_inserer As Bitmap = New Bitmap(odlg.FileName)Clipboard.SetDataObject(image_a_inserer, False)
RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
End If
Catch ex As Exception
End Try