Muchas gracias me funcionó la adaptación que hice de ese código a mis necesidades
Solamente un asunto:
a = FindWindow("Notepad", vbNullString)
En mi caso, el nombre de clase cambia cada vez que hay una ejecución, como el hWnd, entonces opté por colocar otros datos y quedará así:
a = FindWindow(vbNullString, "Nombre de la ventana")
En mi caso, el nombre de la ventana siempre es el mismo no cambia así que me funciona correctamente. También tengo el Spy++ muchas gracias igual por explicarlo siempre es bueno aprender de los que saben.
