Esta muy bueno el aporte de PedroEsca pero si el picture tiene una imagen no se auto ajusta al tamaño del picture habria que ir jugando con la propiedad Paintpicture para lograr eso.
Con una funcion llamandola al soltar el mause como esta ajustaria el tamaño del pic:
Sub AjustaPic()
Picture1.PaintPicture PicOriginal.Picture, 0, 0, Picture1.Width, Picture1.Height
End Sub