kizas este mal dar directamente el código, pero x si tuvieras algún problema o si le puede servir a otra persona será asi
:
Ponemos 2 botones (uno copiará la ventana actia "q es lo q preguntas" y el otro copiará toa la pantalla "x si interesa a alguien"
)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub btn_Activa_Click()
'Captura la ventana activa
keybd_event 44, 1, 0&, 0&
End Sub
Private Sub btn_Pantalla_Click()
'Captura toda la pantalla
keybd_event 44, 0, 0&, 0&
End Sub
Ahora bien si d paso quieres q esa imagen pase un picture x ejemplo sería d esta forma :
(ponemos otro botón)
Private Sub btn_Pegar_Click()
'pega la imagn q c tenga copiada
Picture1.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
q de bromitas he hexo yo con este código haciendo q un exe copie la pantalla ,el frm con el mismo tamaño q el screen y q esté x delante d otras ventanas... jajajaj a primera vista parece q too está blokeado
spero k t sirva y saludos