1. Démarrez un nouveau projet que vous enregistrez sous le nom Ex_10xx.vbp. La feuille porte le nom Tailles et sa propriété CAPTION indique Les tailles de texte. Réglez aussi la propriété WINDOWSTATE à 2-Maximized.
2. Créez un bouton que vous nommez BO_Taille et que vous placez dans la partie supérieure droite de la feuille. Le CAPTION de ce bouton est Tailles.
3. Ajoutez le code suivant dans pour ce bouton.

Private Sub Bo_Taille_Click()
   Dim V_Taille As Single   'Déclaration de variable
   V_Taille = 1    'Initialisation de la variable
   Do    'Boucle de contrôle jusqu'à un maximum de 100
      V_Taille = V_taille * 1.2   'Augmentation de V_Taille
      Me.Font = "Verdana"    'Choix de la police
      Me.Font.Size = V_Taille    'Attribution de la taille au message
      Me.Print "Verdana - "; V_Taille    'Impression du message
   Loop Until V_taille > 100!
End Sub

4. Enregistrez cette partie de votre programme et testez-le. Vous devriez obtenir un résultat semblable à celui-ci.

Il est aussi possible d'utiliser des polices différentes dans des zones d'images. Voici comment procéder. Les caractéristiques attribuées à une police ne sont pas nécessairement attribuées à tout le texte de la zone contrairement à une zone de texte ou à une étiquette.

5. Ajoutez un second bouton sous le premier. Nommez-le Bo_Polices et réglez sa propriété CAPTION à Polices.

6. Ajoutez ensuite une  zone d'image (PictureBox) sous les boutons. Nommez-la IM_Polices. Réglez sa propriété HEIGHT à 2655 et sa propriété WIDTH à 3495. En ce qui concerne sa position, il suffit qu'elle ne chevauche pas le texte inscrit sur la feuille lorsqu'on clique sur le bouton Tailles. Les propriétés LEFT  à 6000 et TOP à 1320 devraient permettre d'obtenir ce résultat.

7. Ajoutez le code suivant dans le bouton Bo_Polices.

Private Sub BO_Polices_Click()
   'Message utilisant la police par défaut
   IM_Polices.Print "Propriétés de la police par défaut"

   'Message utilisant des WingDings
   IM_Polices.Font.Name = "WingDings"
   IM_Polices.Font.Size = 18
   IM_Polices.Print "WingDings"

   'Message utilisant la police Arial
   IM_Polices.Font.Name = "Arial"
   IM_Polices.Print "Arial"

   'Message utilisant la police Garamond
   IM_Polices.Font.Name = "Garamond"
   IM_Polices.Print "Garamond"

   'Message utilisant Arial gras, italique et souligné
   IM_Polices.Font.Bold = True
   IM_Polices.Font.Italic = True
   IM_Polices.Font.Underline = True
   IM_Polices.Font.Name = "Arial"
   IM_Polices.Print "Gras, Italique, Souligné, et autres"
End Sub

8. Enregistrez à nouveau votre programme et testez-le. Vous devriez obtenir un résultat semblable à celui-ci.

Application:

• Dans le script du bouton BO_Taille, remplacez la police utilisée et le texte affiché par Impact. Remplacez aussi les quatre polices autres que la police par défaut dans Bo_Polices  Sauvegardez le nouveau programme sous le nom Ex_10bxx.vbp.