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