Código: Seleccionar todo
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF8) Then
keybd_event 44, 0, 0&, 0&
Image1.Picture = Clipboard.GetData(vbCFBitmap)
end if
end sub
ACLARO: no tengo ningun programa abierto que aga uso del portapapeles
Código: Seleccionar todo
Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF8) Then
keybd_event 44, 0, 0&, 0&
Image1.Picture = Clipboard.GetData(vbCFBitmap)
end if
end sub