Private
Sub
Picture1_Paint()
Picture1.AutoRedraw =
True
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
End