OUVERTURE D'UNE FEUILLE PROGRESSIVE

 Private Sub Form_Load()
'Rien a faire ici
End Sub

Private Sub Timer1_Timer()

For L = 1 To 5000 'Iniatialise une boucle de 1 vers 5000 sans aucune étape Step

 Form1.Width = L 'La largeur de la Form1 est égale à la valeur de la boucle
   Form1.Height = L 'La hauteur de la Form1 est égale à la valeur de la boucle
  
   Form1.Top = L 'L'abscisse de position de la Form1 est égale à la valeur de la boucle
Form1.Left = L 'L'ordonnée de position de la Form1 est égale à la valeur de la boucle

Next L

Timer1.Enabled = False 'Arrête le timer dès la fin des opérations ci-dessus

End Sub

Télécharger le zip