Dim scaleBitmap as Bitmap
Dim rs As RSImageProcessing
imgHeight = lgpic_array(0).Height
imgWidth = lgpic_array(0).Width
rs.Initialize
If imgHeight > imgWidth Then
imgScaleWidth = rs.getDestination(lgpic_array(0),200)
scaleBitmap = rs.scaleBitmap(lgpic_array(0), imgScaleWidth, 200)
Else
imgScaleHeight = rs.getDestination(lgpic_array(0),320)
scaleBitmap = rs.scaleBitmap(lgpic_array(0), 320, imgScaleHeight)
End If
imvImage.Initialize("imvImage")
imvImage.Gravity = Gravity.CENTER
imvImage.Bitmap = scaleBitmap