try putting your image in a picture box and using the SavePicture call..

SavePicture MyPic.picture, app.path & "\MyPic.bmp"

should work without fail