1. Créez un nouveau projet que vous sauvegardez sous le nom Ex_9xx.vbp. Nommez la feuille Fruits et inscrivez aussi Fruits  pour la propriété CAPTION. Réglez WIDTH à 3895 et HEIGHT à 4230.
2. Ajoutez une zone d'image (PictureBox) que vous nommez IM_Fruits. Changez les propriétés suivantes: HEIGHT = 3675, WIDTH = 3680, PICTURE = Fruits.jpg.
3. Ajoutez le code suivant dans l'évènement Form_Resize. Il est assez long et nécessite beaucoup de calculs.

Private Sub Form_Resize()
   Dim V_X, V_Y As Integer 'Déclaration des variables
   Dim V_texte As String
   'Repositionnement de la zone d'image
   Im_Fruits.Move 0, 0, ScaleWidth, ScaleHeight
   'Effacement du contenu de la zone d'image
   Im_Fruits.Cls

   'Réglage des caractéristiques de la police
   Im_Fruits.ForeColor = &HFF0000
   Im_Fruits.FontName = "Verdana"
   Im_Fruits.FontTransparent = "False"

   'Imprimer les premier et quatrième mots
   V_X = Im_Fruits.ScaleWidth \ 3  'Calcul du tiers
   V_Y = (Im_Fruits.ScaleHeight \ 2) - 100   'Position supérieure
   V_texte = "BANANES"  'Initialisation de V_Texte
   Im_Fruits.CurrentX = (V_X / 2) - Im_Fruits.TextWidth(V_texte) \ 2    'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2   'Position vert.
   Im_Fruits.Print V_texte    'Écriture du texte
   V_Y = Im_Fruits.ScaleHeight - 100    'Position inférieure
   V_texte = "GROSEILLES"   'Initialisation de V_Texte
   Im_Fruits.CurrentX = (V_X / 2) - Im_Fruits.TextWidth(V_texte) \ 2   'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2    'Position vert.
   Im_Fruits.Print V_texte    'Écriture du texte

   'Imprimer les second et cinquième mots
   V_X = Im_Fruits.ScaleWidth \ 2    'Centre horizontal
   V_Y = (Im_Fruits.ScaleHeight \ 2) - 100    'Position supérieure
   V_texte = "AGRUMES"    'Initialisation de V_Texte
   Im_Fruits.CurrentX = V_X - Im_Fruits.TextWidth(V_texte) \ 2    'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2   'Position vert.
   Im_Fruits.Print V_texte    'Écriture du texte
   V_Y = Im_Fruits.ScaleHeight - 100    'Position inférieure
   V_texte = "KAKI" 'Initialisation de V_Texte     'Initialisation de V_Texte
   Im_Fruits.CurrentX = V_X - Im_Fruits.TextWidth(V_texte) \ 2   'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2   'Position vert.
   Im_Fruits.Print V_texte    'Écriture du texte

   'Imprimer les troisième et sixième mots
   V_X = Im_Fruits.ScaleWidth \ 3   'Calculer le tiers
   V_Y = (Im_Fruits.ScaleHeight \ 2) - 100   'Position supérieure
   V_texte = "PRUNES" 'Initialisation de V_Texte   'Initialisation de V_Texte
   Im_Fruits.CurrentX = ((V_X * 2) + (V_X / 2)) - Im_Fruits.TextWidth(V_texte) \ 2   'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2   'Position vert.
   Im_Fruits.Print V_texte   'Écriture du texte
   V_Y = Im_Fruits.ScaleHeight - 100    'Position inférieure
   V_texte = "PASTÈQUE" 'Initialisation de V_Texte   'Initialisation de V_Texte
   Im_Fruits.CurrentX = ((V_X * 2) + (V_X / 2)) - Im_Fruits.TextWidth(V_texte) \ 2 'Position hor.
   Im_Fruits.CurrentY = V_Y - Im_Fruits.TextHeight(V_texte) \ 2   'Position vert.
   Im_Fruits.Print V_texte    'Écriture du texte
End Sub

4. Enregistrez votre programme et testez-le.

Application:

• Créez, sur le modèle précédent, une image contenant trois items dûment identifiés. Choisissez le sujet que vous désirez.  Sauvegardez le nouveau programme sous le nom Ex_9bxx.vbp.