[أسامة]

جربت هذا الكود ولم يعمل

كود :

Private Sub button1_Click(sender As Object, e As EventArgs)
    Dim p As New Process()
    p.StartInfo.FileName = "Test.exe"
    p.Start(My.Resources.Test)
End Sub

[kslawy]

السلام عليكم ورحمة الله وبركاته

PHP كود :

Dim myFileName As String = "d:\test.exe" ' اكتب هنا المسار واسم الملف الذي تريد حفظه
        IO.File.WriteAllBytes(myFileName, My.Resources.Test) ' كتابة الريسورس في الملف الجديد

        If IO.File.Exists(myFileName) Then ' التحقق من وجود الملف 
            Process.Start(myFileName) ' ثم فتحه
        End If