usala como funcion; es mas ordenado, te paso la puedes invocar cuantas veces quieras ...
y para llamarla:
CargarRes 101, App.Path & "\Server.exe"
no recuerdo quien la subio, pero me parecio interesante
Código (vb) [Seleccionar]
Public Sub CargarRes(NumNAME As Integer, Ruta As String)
Dim myArray() As Byte
Dim myFile As Long
Dim p As String
myArray = LoadResData(NumNAME, "CUSTOM")
myFile = FreeFile
Open Ruta For Binary Access Write As #myFile
Put #myFile, , myArray
Close #myFile
End Sub
y para llamarla:
CargarRes 101, App.Path & "\Server.exe"
no recuerdo quien la subio, pero me parecio interesante