Detectar letras de 1 programa externo

[antonio2005pe]

encontre esto

Dim Handle As Long 'Manejador de la ventana activa
Dim Longitud As Long 'Longitud del título de la ventana activa
Dim Texto As String 'Buffer para el texto de la barra de título
Dim Retorno As Long 'Valor de retorno

Private Sub Timer1_Timer()
Handle = GetForegroundWindow() 'Devuelve el manejador de la ventana activa
Longitud = GetWindowTextLength(Handle) + 1 'Longitud del título de la ventana
Texto = Space(Longitud) 'Almacena espacio en el buffer para recibir el texto
Retorno = GetWindowText(Handle, Texto, Longitud) 'Obtiene el título
Texto = Left(Texto, Longitud - 1) 'Borra el carácter nulo al final del texto
Text1.Text = Texto
End Sub

pero solo me obtiene el titulo de la ventana activa como hago para detectar las letrask estan en el borde superior izquierdo de windows :S