Tienes que usar API
Option Explicit
Private Declare Function MapVirtualKey Lib "user32" _
Alias "MapVirtualKeyA" (ByVal wCode As Long, _
ByVal wMapType As Long) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Private Const VK_MENU = &H12
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
Public Sub CapturaPantalla()
' Press Alt.
keybd_event VK_MENU, 0, 0, 0
DoEvents
' Press Print Scrn.
keybd_event VK_SNAPSHOT, 1, 0, 0
DoEvents
' Release Alt.
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
DoEvents
End Sub