Problema con el archivo de recursos de lanzamiento de VB

Ejemplo:

Atenuar temp() como byte

temp = LoadResData(101, "CUSTOM") 'ico

Abrir " D:\1.ico" Para binario como #1

Coloque #1, 1, temp()

Cierre #1

temp= LoadResData(102 , "CUSTOM") 'Imagen

Abra "D:\2.jpg" para binario como #1

Coloque #2, 1, temp()

Cerrar #2

temp = LoadResData(103, "CUSTOM") 'exe

Abrir "D:\3.exe" para binario como #1

Poner #3, 1, temp()

Cerrar #3

temp = LoadResData(104, "CUSTOM") 'Cursor

Abrir "D： \4.cur" Para binario como #1

Coloque #4, 1, temp()

Cierre #4