Saber texto seleccionado en cualquier ventana

[flv]

Necesito saber si alguien es tan amable, como puedo saber el texto seleccionado en la ventana activa, sea la aplicación que sea. Y mostrarla en un msgbox o guardarla en una variable una vez que pulsas una tecla por ejemplo F9.

Gracias

[Guan]

Lo qe puedes hacer es al pulsar f9, por ejemplo, copiar el texto seleccionado (control + C con la api de sendkeys) y directamente pasarlo a una variable

[flv]

Muchas gracias, sabia que era algo asi, al final algo parecido a esto he echo.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_CONTROL = &H11
Private Const VK_C = &H43
Private Const KEYEVENTF_KEYU P = &H2


' En el form load o cualquier otro sitio, poner el código siguiente
Private Sub Form1_Load()
    ' Activate the other program.
    AppActivate txtCaption.Tex t, True

    ' Clear the clipboard.
    Clipboard.Clea r

    ' Press Control.
    keybd_event VK_CONTROL, 0, 0, 0
    DoEvents

    ' Press C.
    keybd_event VK_C, 1, 0, 0
    DoEvents

    ' Release Control.
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYU P, 0
    DoEvents

    ' Get the text from the clipboard.
    Text1.Text = Clipboard.GetT ext
End Sub