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