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