Извлечение файлов из ресурсов приложения - VB

Формулировка задачи:

Ребята скажите пожалуйста как работать с ресурсами в таком плане: как можно при запуске моей программы извлечь находящейся в ней ресурс например в директорию C:\1.exe… Заранее спасибо.

Решение задачи: «Извлечение файлов из ресурсов приложения»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
IProgram
End Sub
 
Public Sub IProgram()
Dim  FileData() As Byte    'переменная для файлика
 
'загружаем байты из          ресурсов
FileData() = LoadResData("Test", "CUSTOM") 'Test - имя ресурса CUSTOM - раздел(папочка) 
 
Open "C:\1.exe" For Binary As #1 'открываем файл
Put #1, , FileData()                   'записываем
Close #1                                 'закрываем
End Sub
                        