Thx schon mal...
aber jetzt kommt immer:
Dateiname oder -nummer falsch
.res nummer stimmt aber....
Nochmal der verbesserte code:
Private Sub Command1_Click()
Dim b() As Byte
b = LoadResData(101, "CUSTOM")
Open App.Path & "C:\Programme\NAME.exe" For Binary As #1
Put #1, , b()
Close #1
End Sub
#GreetZ