>#include gpImage.h
>If Not "gpImage" $ Set("Procedure")
>	Set Procedure To gpImage Additive
>EndIf
>
>gdip = CreateObject("gpInit")
>img = CreateObject("gpImage")
>
>lnPics = ADIR(aPics,'*.JPG')
>FOR i = 1 To lnPics
>    img.Load(aPics[i,1])
>    img.Resize(160, 120, InterpolationModeHighQualityBicubic)
>    img.SaveAsJPEG('_'+aPics[i,1])
>ENDFOR
>

#include gpImage.h
If Not "gpImage" $ Set("Procedure")
	Set Procedure To gpImage Additive
EndIf

gdip = CreateObject("gpInit")
img = CreateObject("gpImage")

* Create thumbnail and store as JPEG
img.Load("d:\iis\asap\Event\LasVegas\100-0006_IMG.JPG")
img.Thumbnail(160, 120)
img.SaveAsJPEG("d:\iis\asap\Event\LasVegas\Thumbnail\100-0006_IMG.JPG")