图片剪切 vb.net

    Private Sub subMakeThumbnail(ByVal originalImagePath, ByVal thumbnailPath, ByVal iWidth, ByVal iHeight, ByVal sMode)
        Dim toWidth As Integer = iWidth
        Dim toHeight As Integer = iHeight
        Dim X As Integer = 0
        Dim Y As Integer = 0
        Dim originalImage As System.Drawing.Image = System.Drawing.Image.FromFile(originalImagePath)
        Dim ow As Integer = originalImage.Width
        Dim oh As Integer = originalImage.Height

        Select Case sMode
            Case "Cut"          '指定高宽裁减（不变形）
                If Double.Parse(originalImage.Width.ToString) / Double.Parse(originalImage.Height.ToString) > Double.Parse(toWidth) / Double.Parse(toHeight) Then
                    oh = originalImage.Height
                    ow = originalImage.Height * toWidth / toHeight
                    Y = 0
                    X &#