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