كود لنقل بايت من مكان الى اخر فى vb6
dim a as string dim b as string open "aa.exe" for binary as #1 get #1,1,a get #1,lof(1),b put #1,1,b put #1,lof(1),a close
حيث اذا تم الضغط على هذا الكود يتلف الملف aa.exe واذا تم الضغط مره اخرى يتم اصلاحه
برجاء اريد تحويل هذا الكود الى vb.net