picShowPicture pctReOriginal, False, lblDraguDrop.Tag, False
    If pctReOriginal.Picture.Width > pctReOriginal.ScaleWidth Then
        scrHReAuge.Visible = True
        scrHReAuge.Max = (pctReOriginal.Picture.Width - _
          pctReOriginal.ScaleWidth)
    End If
    If pctReOriginal.Picture.Height > pctReOriginal.ScaleHeight Then
        scrvReAuge.Visible = True
        scrvReAuge.Max = (pctReOriginal.Picture.Height - _
          pctReOriginal.ScaleHeight)
    End If