>How about this:
>
>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()
>
>DO loadmyapplicationandotherstuff()
>
>WAIT '' TIMEOUT lnhoweverlongyouwanttowait
>
>Loading.Release()
>Loading = .NULL.

This is still the same. The WAIT WINDOW doesn't help.