' Pfad von Bild - wird normalerweise mit einem OpenFileDialog ermittelt...
Dim picPfad As String = "C:\hobbes.jpg"
Dim myCoolPic As Image = Image.FromFile(picPfad) ' Lädt Bild
Clipboard.SetImage(myCoolPic)	' Kopiert Bild in die Zwischenablage
 
' cpFormat lädt Bild wieder aus der Zwischenablage
Dim cpLoadPic As DataFormats.Format = DataFormats.GetFormat(DataFormats.Bitmap)
 
' Prüft, ob das Bild aus der Zwischenablage in die RichTextBox eingefügt werden 
' kann.
If RichTextBox1.CanPaste(cpLoadPic) Then
	' Wenn 'Ja', dann Bild an der aktuellen Coursor-Position einfügen
	RichTextBox1.Paste(cpLoadPic)
End If

-----
"There's never enough time to do all the nothing you want."
(Calvin and Hobbes)