picture1 içine resim aldığını düşünerek cevaplıyorum
Call SavePicture(Picture1.Picture, "c:\resimadi.bpm")
Tırnak içinde uzantıyı istediğin gibi yapabilirsin. programın bulunduğu dizine kaydetmek için
Call SavePicture(Picture1.Picture, App.Path & "\" & "resimadi.bmp")
kolay gesin