As a side note, apparently looking at it's posting date, the code was written for VFP 6, so, if you are using VFP 8 you can replace
nhwnd = FindWindow(0,'Top Level Form Caption')
with
nhwnd = oTemp.hWnd
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges