Really Simple Load Custom Resource

I decided to wrote this article after a long time trying to find a way to load custom resources that cant be load as "normal" ... all i can find is really complicated DLL's and huge and confuzing codes ... so i decide to show a really simple way. I will show how to load an flash animation but you can do this with anything. I will also put a sample on a ZIP in case that you have some problem with copy and paste All you have to do is create your resource file as normal puting anything you want (JPG, EXE, SWF, Etc...) as custom resources. And then write the resource to a file and load it. Private Sub Form_Load() Dim M() As Byte M = LoadResData(1, "SWF") Open "c:\windows\desktop\m.swf" For Binary Access Write As 1 Put #1, , M Close 1 SF.Movie = "c:\windows\desktop\m.swf" End Sub Private Sub Form_Unload(Cancel As Integer) Kill "c:\windows\desktop\m.swf" End Sub