Comme vous l'aurez compris c'est pour redimensionner un controle.
Seul problème, le résultat est de type Réel. Alors que la propriété est Entière.
Et je n'ai pas trouvé de fonction pour passer de réel à entier (la fonction Int(reel) ne renvoit en fait pas un entier).