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.