Screen shot almak...
VB 6.0 ' acın ...
Yeni bir proje oluşturun...
Birtane picture box koyun...
bide buton...
aşağıda yer alan kodu yapıştırın....


Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub SendKey(ByVal key As String)
keybd_event key, 0, 0, 0
keybd_event key, 0, KEYEVENTF_KEYUP, 0
End Sub
Private Sub command1_click()
SendKey 44
DoEvents
Picture1.Picture = Clipboard.GetData
End Sub

Ayrıca sendkey komutu herhangi bir karakteri gondermek icinde kullanılabilir...
Kolay gele...
__________________