If you're trying to close word, the you could get a reference to it with GetObject and then use the .Quit() method:

* assumes that there is only one copy of word running
local lcOnError
lcOnError = ON('ERROR')
on error *
loWord = getobject(,'word.application')
if vartype(loWord) = 'O'
  loWord.Quit(.f.)
endif
loWord = .null.
ON ERROR &lcOnError.

Cheers,

Andrew

>The code below is a vb code which send keypresses to a particular application. Anyone who knows the vfp code for this. I want to create a keyboard program for a touch screen POS System.
>
>AppActivate "Microsoft Word" ' activate the application to send to keypress
>SendKeys "%{F4}", True ' Alt F4