Quote Originally Posted by xiaoyao View Post
dim exeok as long
SUB MAIN()
if exeok=1 then exit sub
exeok=1
form1.show
end sub
As per xiaoyao's suggestion, I moved the startup command to Sub Main in the module and entered:
Code:
Sub Main()
    If Not InitFakeHeader Then MsgBox "No executable!", vbExclamation
    If Form1.Visible Then Exit Sub
    Form1.Show
End Sub
That seems to have corrected the issue. I will update the download when I get time.

J.A. Coutts