ASP.NET (VB) Image Resizing Problem

This particular sub-routine changes two variables (intCurrentWidth & intCurrentHeight), that are public to the webform that I've built. The problem is that when an image is larger than the maximum allowed size AND the width is also larger than the maximum allowed size, part of the image gets chopped off in its width. Here's the code: Private Sub ResizeImage(ByRef imageWidth As Integer, ByRef imageHeight As Integer, ByVal maxWidth As Integer, ByVal maxHeight As Integer) intCurrentHeight = imageHeight intCurrentWidth = imageWidth If intCurrentHeight < maxHeight AND intCurrentWidth < maxWidth Then Exit Sub If imageWidth > imageHeight Then If imageWidth > maxWidth Then intCurrentHeight = CType(imageHeight * (maxWidth / imageWidth), Integer) intCurrentWidth = maxWidth End If End If If imageHeight > imageWidth Then If imageHeight > maxHeight Then intCurrentWidth = CType(imageWidth * (maxHeight / imageHeight), Integer) intCurrentHeight = maxHeight End If End If If imageWidth > maxWidth Then intCurrentWidth = maxWidth intCurrentHeight = CType(imageHeight * (maxWidth / imageWidth), Integer) End If If imageHeight > maxHeight THen intCurrentHeight = maxHeight intCurrentWidth = CType(imageWidth * (maxHeight / imageHeight), Integer) End If End Sub One last thing: DO NOT BID UNLESS YOU ALREADY KNOW WHAT THE PROBLEM IS AND HOW TO FIX IT. I DO NOT CARE IF THE WHOLE SUBROUTINE IS COMPLETELY RE-WRITTEN. THIS NEEDS TO BE DELIVERED BY TUESDAY 10/19! ## Deliverables The subroutine fixed, and delivered. ## Platform Visual [login to view URL], ASP.NET