max_yukseklik=800 ' yüksekliğin olması gereken max. uzunluğu
max_genislik=800 ' genişliğin olması gereken max. uzunluğu
if jpeg.OriginalHeight>max_yukseklik or jpeg.OriginalWidth>max_genislik then
   If jpeg.OriginalWidth >= jpeg.OriginalHeight  Then
     jpeg.Width = max_genislik
     jpeg.Height = jpeg.OriginalHeight*max_genislik/jpeg.OriginalWidth
   else
     jpeg.Height = max_yukseklik
     jpeg.Width = jpeg.OriginalWidth*max_yukseklik/jpeg.OriginalHeight
   End If
End If

yukarıdaki iki değişkeni (max_genislik, max_yukseklik) kendine göre ayarlaman kafi yükseklik ve/veya genişlik belirttiğin değerlerden büyük ise oranlama yaparak resim boyutunu küçültür. eğer verilen değerlerden düşük ise de hiç bir işlem yapmadan resmi direk orjinal boyutunda bırakır

çok küçük bir ihtimal oranlamayı yanlış yapmış olabilirim. çünkü şu an sabahın 5:50 si