See the solution from "Merri" to this
post[
^] on VBForums
In case the link disappears here is the gist of it :
Image1.Move (Picture1.ScaleWidth - Image1.Picture.Width) \ 2, (Picture1.ScaleHeight - Image1.Picture.Height) \ 2, Image1.Picture.Width, Image1.Picture.Height