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.