وضع ملفين داخل برنمج

ضع الملفين في Resource File

غالبا يبدا ترقيم الملفات بالريسورس من 101

لاستخراج الملفات اكتب الكود

Dim ResData() As Byte
ResData = LoadResData(101, "Custom")
'101 رقم الملف بالريسورس
'Custom نوع الريسورس

'"C:\1.dll" المسار الذى تريد حفظ الملف به
Open "C:\1.dll" For Binary As #1
    Put #1, , ResData()
Close #1