Dim result As DialogResult = dlgMainImageOpen.ShowDialog()
If result = Forms.DialogResult.OK Or Forms.DialogResult.Yes Then
Dim image As Image = image.FromFile(dlgMainImageOpen.FileName)
My.Computer.Clipboard.SetImage(image)
richtextbox.AllowDrop = True
richtextbox.Paste()
End If