fermer une fenetre

label ferme
dim h,l,x,y,x1,y1,i
full_space 0
h = screen_y
l = screen_x
' hide 0
form 1
button 2 : parent 2,1 : top 2,200 : left 2,300 : width 2,100
caption 2,"Fermer la fenêtre"
caption 1,"Centrage du FORM 1"
height 1,350
width 1,450
x = (l-450)/2
y = (h-350)/2
top 1,y
left 1,x
on_click 2,ferme
end
ferme:
hide 2
for i=350 to 0 step -1
height 1,i
width 1,i+100
x1=(l-(i+100))/2
y1=(h-i)/2
top 1,y1
left 1,x1
next i
hide 1
wait 2500
terminate
return

dim a$ , i ,j
a$="PROGRAMME GENRE MATRIX"
label quitter
left 0,-280 : top 0,100 : width 0,280 : height 0,420
caption 0,a$

for i=1 to 7
 button i
 left i,40
 top i,i*50-20
 width i,190
 caption i,"Bouton servant juste pour la démo"
next i
font_bold 7
caption 7,"Quitter ce programme"
for i=-280 to 0
 left 0,i
next i
on_click 7,quitter

end

quitter:
for i=1 to len(a$)-1
 a$=right$(a$,len(a$)-1)
 caption 0,a$
 wait 1
next i
caption 0,""
for i=1 to 7
 for j=40 to -230 step -1
  left i,j
 next j
next i
for i=0 to -280 step -1
 left 0,i
next i
terminate