この記事を書いた当時は語句の先頭を小文字にしてもエラーは出なかったのですが、2023年8月より「大文字にしなきゃダメじゃん」とお叱りを受けるようになりました。書き直すのが面倒なので直しませんけど、参考にされるときはご留意ください。

画像ファイルを読み込んでリッチテキストボックスに埋め込む
一旦クリップボードに読み込んでから貼り付けます。
 
Dim pic As Image = Nothing
Dim cFileOpen As New OpenFileDialog

cFileOpen.Filter = "画像ファイル(*.PNG;*.JPG;*.GIF;*.BMP)|*.PNG;*.JPG;*.GIF;*.BMP|全てのファイル(*.*)|*.*"
cFileOpen.Multiselect = False

If cFileOpen.ShowDialog = DialogResult.OK Then

        Try
                pic = Image.FromFile(cFileOpen.FileName)
        Catch ex As Exception
                MessageBox.Show("ファイルが開けませんでした。" & vbCrLf & cFileOpen.FileName, APPNAME, MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
                Exit Sub
        End Try

Else
        Exit Sub
End If

Clipboard.SetImage(pic)
cRich.Paste()


2018/12/17追記
クリップボードの内容が変わってしまうのが問題になる場合は、
こちらの記事を参考にして一旦退避してから作業後に戻してください。