[سؤال] مشكلة اضافة نص و صورة ادخل الاداء RichTextBox

كود :

    Dim OpenFileDialog1 As New OpenFileDialog

        Clipboard.Clear()

        OpenFileDialog1.ShowDialog()

        Clipboard.SetImage(Image.FromFile(OpenFileDialog1.FileName))

        RichTextBox1.Paste()

        TextBox1.Select()

        Clipboard.Clear()

كود :

    Dim OpenFileDialog1 As New OpenFileDialog

        Clipboard.Clear()

        OpenFileDialog1.ShowDialog()

        Dim img As Image = Image.FromFile(OpenFileDialog1.FileName)

        Dim bmp As New Bitmap(100, 100)

        Dim g As Graphics = Graphics.FromImage(bmp)

        g.DrawImage(img, New Rectangle(0, 0, bmp.Width, bmp.Height), New Rectangle(0, 0, img.Width, img.Height), GraphicsUnit.Pixel)

                Clipboard.SetImage(bmp)

        RichTextBox1.Paste()

        Me.RichTextBox1.ScrollBars = RichTextBoxScrollBars.Both

        Me.RichTextBox1.ScrollToCaret()

        TextBox1.Select()

        Clipboard.Clear()

        g.Dispose()

        bmp.Dispose()

        img.Dispose()