[eng.khalidvb]

السلام عليكم ورحمه الله وبركاته
 اخي جرب هذا التعديل على الكود

كود :

 Dim j As Image
        j = My.Resources.widget
        Dim file As IO.StreamWriter
        file = New IO.StreamWriter("D:\widget.png")
        file.WriteLine(j)
        file.Close()

---

اخي ايضا جرب هذا الكود اسهل من الكود الاخر
 

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        My.Resources.ms.Save("MS", System.Drawing.Imaging.ImageFormat.Png)
        Dim finalPath As String = "d:\ms"
        My.Resources.ms.Save(finalPath)
        MsgBox(" تم نسخ الصورة بنجاح")
    End Sub