Vive le printemps...

label clic

  O_form(0,0,1,0,0,200,360,""):Font_name 0,"Arial"
  O_Alpha(1,0,1,20,90,0,0,"Printemps vs 1.0.2013"):font_size 1,12:font_bold 1
font_color 1,20,115,0
  O_Progress_Bar(2,0,1,50,20,0,300):min 2,0:max 2,100
  O_Alpha(3,0,1,75,90,0,0,""):font_size 3,10:font_bold 3
font_color 3,225,15,20
  O_Alpha(4,0,1,95,100,0,0,""):font_size 4,10:font_bold 4
font_color 4,225,15,20
  O_Button(5,0,1,height(0)-68,180,0,0,"Install",0):font_bold 5:inactive 5
  O_Button(6,0,1,height(0)-68,260,0,0,"Cancel",1):font_bold 6
Joke()

end

Sub Joke()
  dim_local x%
  for x%=1 to 100
      position 2,x% :caption 0,str$(x%)+"% Installation en cours..."
      wait 200
      if x%=45 : exit_for :end_if
  next x%
  caption 3,"Installation interrompue..."
  caption 4,"Veuillez patientez !"
  wait 4000
  Caption 3,"L'installation a échoué...!!!"
  caption 4,"Retours à l'HIVER !!!"
End_Sub

Sub O_Form(No%,P%,V%,T%,L%,H%,W%,C$)
  if No%> 0 then FORM No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 : Top No%,T% : Else : Top No%,(Screen_y-H%)/2 : End_If
  If L% > 0 : Left No%,L%: Else : Left No%,(Screen_x-W%)/2: End_If
  if C$<>"" then Caption No%,C$
End_Sub

Sub O_Alpha(No%,P%,V%,T%,L%,H%,W%,C$)
  ALPHA No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
End_Sub

Sub O_Button(No%,P%,V%,T%,L%,H%,W%,C$,Cl%)
  BUTTON No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
  if C$<>"" then Caption No%,C$
  if Cl%> 0 then on_click No%,Clic
  cursor_point No%
End_Sub

Sub O_Progress_Bar(No%,P%,V%,T%,L%,H%,W%)
  PROGRESS_BAR No%
  if P% > 0 then Parent No%,P%
  If V% = 0 Then hide No%
  If H% > 0 Then Height No%,H%
  If W% > 0 Then Width No%,W%
  If T% > 0 Then Top No%,T%
  If L% > 0 Then Left No%,L%
End_Sub

clic:
  Terminate