[elgokr]

كل ما عليك وضع هذا الكود داخل الزر

كود :

Using SaveFileEXE_ As New SaveFileDialog
           With SaveFileEXE_
               .AddExtension = True
               .DefaultExt = ".exe"
               .Filter = "Portable Document Files (*.exe)|*.exe"
               .FilterIndex = 1
               .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
               .Title = "Select The Location To Save This EXE File"
               .ValidateNames = True
           End With

           If SaveFileEXE_.ShowDialog = Windows.Forms.DialogResult.OK Then
               Dim b As Byte() = My.Resources.Pro_V02
               My.Computer.FileSystem.WriteAllBytes(SaveFileEXE_.FileName, b, False)
           End If
       End Using

مع التنبيه بتغيير هذه الكلمة

PHP كود :

Pro_V02 


الى اسم الملف داخل الـ Resources

تحياتى لك

وتمنياتى لك التوفيق