'fabrication d'un bitmap Dim b As Bitmap = New Bitmap(200, 300) 'création de l'outil de dessin Dim g As Graphics = Graphics.FromImage(b) 'dessin sur le bitmap g.DrawString("ceci est un test", New Font("Arial", 14, FontStyle.Bold, GraphicsUnit.Pixel), _ New SolidBrush(Color.Green), 10, 10) 'instancation d'un memorystream Dim ms As IO.MemoryStream = New IO.MemoryStream 'sauvegarde du bitmap au format jpeg dans le memorystream b.Save(ms, Imaging.ImageFormat.Jpeg) 'libération ressources g.Dispose() b.Dispose()