Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Swellow en 10 Junio 2012, 01:41 AM
Problem Solved Thanks!
Public Function CapturaP(ByVal Path As String)
On Error Resume Next
Dim A As Boolean
Do While Not A
Clipboard.Clear
keybd_event 44, 1, 0&, 0&
DoEvents
If Clipboard.GetFormat(vbCFBitmap) Then
SavePicture Clipboard.GetData(vbCFBitmap), Path
DoEvents
Clipboard.Clear
A = True
End If
Loop
End Function