[أبو خالد الشكري]

أنا الذي أجبتك في تفس المشاركة 
http://vb4arb.com/vb/showthread.php?tid=50521

وقلت لي الكود الأخير يعمل على أكمل وجه

كود :

 If PictureBox1.Image IsNot Nothing Then
           Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
           Using tempImage As New Bitmap(PictureBox1.Image)
               tempImage.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
           End Using
           Process.Start(tempFilePath)
       End If

---

جرب الكود التالي الذي يعمل عند النقر المزدوج على الصورة

كود :

  Private Sub Car_Doc_DoubleClick(sender As Object, e As EventArgs) Handles Car_Doc.DoubleClick
       If Car_Doc.Image IsNot Nothing Then
           Dim tempFilePath As String = System.IO.Path.Combine(System.IO.Path.GetTempPath(), "tempImage.png")
           Using tempImage As New Bitmap(Car_Doc.Image)
               tempImage.Save(tempFilePath, System.Drawing.Imaging.ImageFormat.Png)
           End Using
           Process.Start(tempFilePath)
       End If
   End Sub