codice:
Private Sub Form_Load ()
    aLarg = .../10 'Larghezza finale della finestra diviso 10 iterazioni
    aAlt = .../10 'Altezza finale della finestra diviso 10 iterazioni
    For I = 1 To 10
        'Se vuoi animare la larghezza
        Me.Width = aLarg * I
        'oppure l'altezza o entrambi
        Me.Height = aAlt * I
    Next I
End Sub
Ciao