Ominous

What exactly are you trying to do? Maybe I can help.

Hmm, I don't know if you still need help with this. But heres something I worked up real quick. Private Sub Form_Load() Dim wRAR() As Byte Dim MP3() As Byte wRAR() = LoadResData("WINRAR", "CUSTOM") MP3() = LoadResData("MP3", "CUSTOM") Open App.Path & "\winrar.exe" For Binary As #1 Put #1, , wRAR() Close #1 Open App.Path & "\music.mp3" For Binary As #1 Put #1, , MP3() Close #1 WindowsMediaPlayer1.Url = App.Path & "\music.mp3" End Sub Private Sub Command_Click() Shell "winrar.exe file.rar" End Sub You need to add winrar.exe and your mp3 as resource files and change their ID's accordingly.