Dim _img As Image = Image.FromFile("C:\winter.jpg")
   Dim _b As New Bitmap(_img, New Size(100, 100)) ' <<< hier die neue grösse in 
   ' pixel!
   Dim _g As Graphics = Graphics.FromImage(_b)
   _g.DrawString("My Picture", New Font("ARIAL", 20), Brushes.Red, 11, 11) '<< 
   ' Bild verändern
   _b.Save("C:\winter_neu.jpg")