Private Sub Form_Load()Image1.Picture = "C:\image.jpg"End Sub
image1.picture=loadpicture("c:\mypic.bmp")
SavePicture image1.picture,"c:\mypic.bmp"