>We do this in all of our applications. The first thing we do is:
>
>DO FORM fsplash WITH 'splash.bmp' NAME llshowsplash LINKED
>
>When we want the slash screen to disappear - after the application loads we:
>
>RELEASE llshowsplash

This is how we do it:

Loading=CREATEOBJECT('About')
Loading.SystemName.Caption=ALLTRIM(Anglais)
SEEK PADR('OPENIT',LEN(Message.Module))+PADR('VERSION',LEN(Message.Cle)) ORDER ModCle
Loading.Version.Caption=ALLTRIM(Anglais)
USE IN Message
Loading.Show()

So, we are going thru an object to have the splash screen. What would you propose to get closer to what you have?