image resizer

I have an image resizing app and I need to keep the deminsions proportionate. How do I do that with this code? Private Sub Reduce(ByVal factor As Double) img = New Bitmap(img, New Size(50, 50)) picPhoto.Image = img Dim SizeKb As String ' To compute: size in Kb Dim ms...