1. Récupérez le  projet que vous avez enregistré sous le nom Ex_12xx.vbp. Enregistrez-le sous le nom Ex_13xx.vbp. 

2. Activez le composant Microsoft Commod Dialog Control 6.0. Glissez-en une occurrence, que vous nommez  DL_Police, sur la scène.

3. Ajoutez ensuite un bouton que vous nommez BO_Police et dont la propriété CAPTION est initialisée à Police de caractères. Votre interface devrait maintenant être semblable à celle-ci.

4. Ajoutez le script ci-dessous dans le bouton BO_Police.

Private Sub Bo_Police_Click()
   Dl_Police.Flags = cdlCFScreenFonts   'Choix de la boîte de dialogue
   Dl_Police.ShowFont   'Affichage de la boîte de dialogue
   With ZT_Vol.Font    'Attribution des caractéristiques à la zone de texte
      .Name = Dl_Police.FontName   'Nom de la police
      .Bold = Dl_Police.FontBold     'Caractères gras
      .Italic = Dl_Police.FontItalic     'Caractères italiques
      .Size = Dl_Police.FontSize    'Taille des caractères
   End With
End Sub

5. Enregistrez à nouveau votre programme et testez-le. Vous pouvez changer la police à volonté.

Application:

• Ouvrez le programme Ex_11xx.vbp et effectuez les changements nécessaires pour que l'usager puisse choisir la police de texte qu'il désire pour afficher les renseignements sur le système.  Enregistrez votre nouvelle version sous le nom  Ex_13bxx.vbp.