Private Sub Form_Load() Me.Hide Picture1.AutoSize = True 'Taille automatique Picture1.AutoRedraw = True 'Néccésaire pour le print 'chargement de l'image Picture1.Picture = LoadPicture("c:\image.jpg") 'Ecriture du texte Picture1.ScaleMode = vbCentimeters 'Mode de mesure Picture1.CurrentX = 2 'a 2cm de la gauche Picture1.CurrentY = 5 'a 5cm du haut Picture1.Font = "Arial" 'La font Picture1.FontSize = 35 'La taille Picture1.Print "Ceci est un Test" 'Ecriture du texte 'Enregistrement de l'image SavePicture Picture1.Image, "c:\test.bmp" End End Sub