Send keys and Bring Window To Top

[AndyC]

I have code like so:

Dim hWnd As Long
hWnd = FindWindow("A Program", CLng(0))
BringWindowToTop hWnd
SendKeys ("c")

And I thought that it should set "A Program" as the highlighted or active window and sendkeys would send the keys "to" the program but instead it still sends them to the previously selected program, Any help to get it to send it to "A Program"

Andy