Private Sub GetThumbnail(ByVal pathToImageFile As String, ByVal scaleToPercent As Decimal)
' Declare a variable named imageAjustmentPercent of type Decimal.
Dim imageAdjustmentPercent As Decimal
' Divide the scaleToPercent passed into this method by 100;
' assign the result to the imageAjustmentPercent variable.
imageAdjustmentPercent = CDec(scaleToPercent / 100)
' Declare two variables of type Integer named
' adjustedImageWidth and adjustedImageHeight.
Dim adjustedImageWidth, adjustedImageHeight As Integer
' Declare a variable named theImage of type Image.
Dim theImage As Image
' Get an image object from the image file;
' assign the image object to the theImage variable.
theImage = Image.FromFile(pathToImageFile)
' Calculate adjustedImageWidth and adjustedImageHeight using the imageAdjustmentPercent.
adjustedImageWidth = CType(theImage.Width * imageAdjustmentPercent, Integer)
adjustedImageHeight = CType(theImage.Height * imageAdjustmentPercent, Integer)
' Call the Image class' GetThumbnail method to create a new scaled
' image object from the orginal image object. Assign it to theImage varable.
theImage = theImage.GetThumbnailImage(adjustedImageWidth, adjustedImageHeight, Nothing, Nothing)
' Assign theImage to DemoPicturebox.
Me.DemoPictureBox.Image = theImage
End Sub