Public Sub MouseUp()
            If Cancel Then Exit Sub
            Dim x0, y0, x1, y1, tmp As Integer
            x0 = OriginalPosition.X
            x1 = x0 + Size.Width
            If x0 > x1 Then tmp = x0 : x0 = x1 : x1 = tmp
            y0 = OriginalPosition.Y
            y1 = y0 + Size.Height
            If y0 > y1 Then tmp = y0 : y0 = y1 : y1 = tmp
 
            Dim Ratio As Double = Picture.PictureBox.Image.Width / _
              Picture.PictureBox.Width
 
            x0 *= Ratio
            x1 *= Ratio
            y0 *= Ratio
            y1 *= Ratio
 
            If x1 - x0 = 0 Or y1 - y0 = 0 Then
                Remove()
            Else
                newImage = New Bitmap(x1 - x0, y1 - y0)
                Dim g As Graphics = Graphics.FromImage(newImage)
                g.DrawImage(Picture.PictureBox.Image, New Rectangle(0, 0, x1 - _
                  x0, y1 - y0), New Rectangle(x0, y0, x1 - x0, y1 - y0), _
                  GraphicsUnit.Pixel)
 
                newImage.SetResolution( _
                  Picture.PictureBox.Image.HorizontalResolution, _
                  Picture.PictureBox.Image.VerticalResolution)
 
                g.Dispose()
            End If