Dim imageRectShape As RectangleShape = TempImageLayer.GetBoundingBox
frmImageProperties.lblUpperLeft.Text = DecimalDegreesHelper.GetDegreesMinutesSecondsStringFromDecimalDegreePoint(imageRectShape.UpperLeftPoint)
frmImageProperties.lblLowerRight.Text = DecimalDegreesHelper.GetDegreesMinutesSecondsStringFromDecimalDegreePoint(imageRectShape.LowerRightPoint)
Dim width As Double = DecimalDegreesHelper.GetDistanceFromDecimalDegrees(New PointShape(imageRectShape.UpperLeftPoint.X, imageRectShape.GetCenterPoint().Y), New PointShape(imageRectShape.LowerRightPoint.X, imageRectShape.GetCenterPoint().Y), DistanceUnit.Mile)
Dim height As Double = DecimalDegreesHelper.GetDistanceFromDecimalDegrees(New PointShape(imageRectShape.GetCenterPoint().X, imageRectShape.UpperLeftPoint.Y), New PointShape(imageRectShape.GetCenterPoint().X, imageRectShape.LowerRightPoint.Y), DistanceUnit.Mile)
frmImageProperties.lblWidth.Text = Format(width, "#.###") + " miles"
frmImageProperties.lblHeight.Text = Format(height , "#.###") + " miles"
frmImageProperties.CreateThumb(imageFilename)
TempImageLayer.Close()