Public Class frmRTFIMG
 
    Dim WithEvents Button1 As New Button _
        With {.Parent = Me, .Text = "Bild einfügen", .Width = 120, .Top = 10, _
        .Left = 10}
    Dim WithEvents Button2 As New Button _
        With {.Parent = Me, .Text = "Text speichern", .Width = 120, .Top = 10, _
        .Left = 200}
    Dim WithEvents Richtextbox1 As New RichTextBox _
        With {.Parent = Me, .Top = 40, .Left = 10, .Width = 400, .Height = 400}
 
    Private Sub frmRTFIMG_Load(ByVal sender As System.Object, _
                               ByVal e As System.EventArgs) Handles MyBase.Load
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D
        Me.Size = New Size(430, 470)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button1.Click
        With Me.OpenFileDialog1
            .Title = "Bild einfügen"
            .Filter = "Bild (*.jpg)|*.jpg|Bild (*.png)|*.png|Bild (*.bmp)|*.bmp"
            .FileName = ""
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim img As Bitmap = New Bitmap(.FileName)
                Clipboard.SetImage(img)
                Me.Richtextbox1.Paste(DataFormats.GetFormat(DataFormats.Bitmap))
            End If
        End With
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, _
                              ByVal e As System.EventArgs) Handles Button2.Click
        With SaveFileDialog1
            .Title = "Rich Text speichern"
            .Filter = "RichText |*.rtf"
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Richtextbox1.SaveFile(.FileName, RichTextBoxStreamType.RichText)
            End If
        End With
    End Sub
End Class