GetTextLocation example using QTP

Extern.Declare micHwnd, "FindWindow", "user32.dll", "FindWindowA", micString, micString

hwnd = Extern.FindWindow ("MSPaintApp", "cmd.gif - Paint")'
Print hwnd

l = -1 'left
t = -1 'top
r = -1 'right
b = -1 'bottom

succeeded = TextUtil.GetTextLocation("rights",hwnd,l,t,r,b)
Print succeeded

If Succeeded Then
 Print "Text found" & " Left:" & l &  " Top:" & t &  " Right:" & r &  " Bottom:" & b
End If