>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 what I have now and it is the same thing again:

* Loading form
DO FORM UPropos NAME Loading LINKED
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