Duda acerca de pantalla capturada

[Krnl64]

Hola a todos.

Veran tengo el siguiente code que captura toda la pantalla.

Código [Seleccionar] Expandir



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 Command1_Click()
  keybd_event 44, 0, 0&, 0&
End Sub



Mi problema es que no se como puedo transferir la imagen a 1 control PictureBox o Imagebox despues de capturarla.
No me deja guardarla en una variable

Alguien me puede echar 1 mano ?

Gracias

[kontaminator]

Bueno es sencillo:

pon esto en un command despues de agragar un image

On Error Resume Next

Clipboard.Clear              '/* Borra lo que haya en el portapapeles
keybd_event 44, 0, 0, 0      '//Llama a los eventos copiar pegar
keybd_event 44, 0, KEYEVENTF_KEYUP, 0    'para que el archivo de captura se
Do While Clipboard.GetData = False   'quede en el portapapeles
DoEvents
Loop
Image1.Picture = Clipboard.GetData 'la imagen de captura1 sera lo que haya en el
Clipboard.Clear                     'portapales, luego borra todo lo que haya ahi
SavePicture Image1.Picture, "c:\tempfile.bmp" 'se guarda el archivo de captura1
Do While Len(Dir("c:\tempfile.bmp")) = 0      'a c:...bmp y asi puede ser enviado
DoEvents
Loop               'y aqui se hace el loop */

si quedó muy amontonado y no entiendes entra a http://es.geocities.com/kontaminator_clan y baja el código fuente de infosys

[Krnl64]

No sabia manejar el portapapeles de windows.

Ahora me hago una idea de como manejarlo

Gracias Kontaminator !!