Juan M. Afan de Ribera
======================

Codigo para capturar en el portapapeles una ventana de Windows:
Pega este código en un módulo estandar, y después llama a la función
CapturarVentana que lo que hará será como si presionaras la tecla Imprimir
pantalla

Declare Sub keybd_event _
    Lib "user32" _
   (ByVal bVk As Byte, _
    ByVal bScan As Byte, _
    ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)


Public Sub CapturarVentana()

   keybd_event vbKeySnapshot, 1&, 0&, 0&

End Sub