Dim Dosya_Ac As New OpenFileDialog()

        Dosya_Ac.Title = "dRm_Ofis_Otomasyon_v1 - Resim Dosyası Ekle"

        Dosya_Ac.DefaultExt = "rtf"

        Dosya_Ac.Filter = "Resim Dosyaları|*.png;*.bmp;*.jpg;*.gif|PNG Dosyası|*.png|Bitmap Dosyası|*.bmp|JPEG Dosyası|*.jpg|GIF Dosyası|*.gif"

        Dosya_Ac.FilterIndex = 1

        Dosya_Ac.FileName = ""

        If Dosya_Ac.ShowDialog() = DialogResult.OK Then



            Try

                Dim strResimYolu As String = Dosya_Ac.FileName

                Dim img As Image

                img = Drawing.Image.FromFile(strResimYolu)

                Clipboard.SetDataObject(img)

                Dim df As DataFormats.Format

                df = DataFormats.GetFormat(DataFormats.Bitmap)



                If Me.DRichTextBox1.CanPaste(df) Then

                    Me.DRichTextBox1.Paste(df)

                End If



            Catch ex As Exception

                MessageBox.Show("Seçili Görüntü formatı eklemek için açılamıyor.", "RTE - Yapıştır", MessageBoxButtons.OK, MessageBoxIcon.Error)

            End Try

        End If