Set Display Mode 450, 300, 32 : rem also set this in the display properties
Set Window On
Set Window Layout 0, 0, 0 : rem windowless boarder
If File Exist("Config.ini") = 1
Splash = 1
Config = 1
Open To Read Config, "Config.ini"
Read String Config, RuntimeFilename$
Read String Config, SplashFilename$
Close File Config
Load Image SplashFilename$, Splash
Paste Image Splash, 0, 0
Execute File RuntimeFilename$, "", "", 1 : rem run file but wait until this one has closed
EndIf
Wait 7000 : rem wait 7 seconds
End
Code is damn simple, runs identically in both DB and DBP
just make a text file called "Config.ini" and put the filenames of the splash image and exe in there.
These can include pathnames as well, so you can hide them in other folders or something.
Simple solution to a problem. Damn sight easier than pissing about with VB to do it.