شكرا ليك اخى العزيز و بعمل هذا الكود و هو يعمل عليه جميع انواع الصور متحركة و غير متحركة و لكن تظهر الصور تحت بعضها
كود :
Dim OpenFileDialog1 As New OpenFileDialog
Clipboard.Clear()
OpenFileDialog1.ShowDialog()
Dim pic As New PictureBox
pic.Image = Image.FromFile(OpenFileDialog1.FileName)
pic.BackColor = RichTextBox1.BackColor
pic.SizeMode = PictureBoxSizeMode.StretchImage
RichTextBox1.Controls.Add(pic)
RichTextBox1.AppendText(Environment.NewLine)
Clipboard.SetDataObject(pic)
Me.RichTextBox1.Paste()
Clipboard.Clear()
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ