This code will take a stretched image created with the image control and save
it's dimensions to a picturebox in bmp file format.

<pre>
With Picture1
        .Cls
        .AutoRedraw = True
        .BorderStyle = 0
        .Height = Image1.Height 'set height to same as stretched imagebox
        .Width = Image1.Width 'set width to same as stretched imagebox
        .ScaleMode = Me.ScaleMode
   End With

   'Paint the stretched image to picturebox so it can be saved 

   Picture1.PaintPicture Image1.Picture, 0, 0, Picture1.Width, Picture1.Height

   ' Now save it as a bitmap
   SavePicture Picture1.Image, "whatever.bmp"

   Picture1.Cls 'clean-up

</pre>