Esta función es para guardar la captura, la puedes adaptar a tu gusto
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