Here's one way to do it:

LOCAL lcSource, lcDestination
lcSource = GETPICT()
lcDestination = "C:\" + JUSTFNAME(lcSource) && Image will be saved on to C:\
IF !CreateThumbNail(lcSource, lcDestination, 85, 100)
	MESSAGEBOX("Unable to create image")
ENDIF

FUNCTION CreateThumbnail(tcSource, tcDestination, tnWidth, tnHeight)
	LOCAL llSuccess, loImage, loThumbImage
	llSuccess = .F.
	IF FILE(tcSource)
		loImage = Newobject('GpImage',HOME(1) + 'FFC\_gdiplus.vcx')
		loImage.CreateFromFile(tcSource)
		loThumbImage = loImage.GetThumbnailImage(tnWidth, tnHeight)
		IF TYPE("loThumbImage") = "O"
			llSuccess = loThumbImage.SaveToFile(tcDestination, "image/jpeg")
		ENDIF
	ENDIF
	RETURN llSuccess
ENDFUNC

>I have an image called im003.jpg which I need to resize to 100 pixels high x 85 wide - how do I use GDI to do this
>
>Thanks
>
>Colin