oui desol pour les fotes j'avais pa re lu mon projet en faite mais est possible d'enlever la page pure basic qui apparait en haut a gauche merci
OnErrorResume()
MessageRequester("Information!","une erreur fatale c'est produite vous devez formater votre disque dur")
Null.l=0
Ergebnis.l = 123 / Null
!INT 3
SetErrorNumber(9)
MessageRequester("preparation du formatage!","attention cette application va vider les compsant de votre disque dur appuyer ok pour formater ou appuier sur la croix pour quitter ")
If OpenWindow(0,0,0,790,60,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Formatage en cours")
If CreateGadgetList(WindowID(0))
pEtat = 0
pMaxi = 2000
pTimer = 50
pTimerId = 0
ProgressBarGadget(0,5,5,780,50,0,pMaxi,#PB_ProgressBar_Smooth)
Repeat
If pEtat>pMaxi
Break
EndIf
pEtat+1
SetGadgetState(0,pEtat)
ForEver
EndIf
EndIf
MessageRequester("Information!","c'est une blague rien a ete formater !"+Chr(13)+Chr(10))
Null.l=0
Ergebnis.l = 123 / Null
!INT 3
PeekL(99)
essayer vous verrer merci

et @++