VB with API analog screenshot key Printscreen

Many people use SendKeys "{PRTSC}" to simulate the screen key Printscreen when prompted < error: ' 70 ' denied permission, so often meet people ask ... Simply write it down.

' Statement private Declare Sub keybd_event Lib ' user32 ' Alias ' keybd_event ' (ByVal bvk as Byte, ByVal bscan as Byte, ByVal dwFlags As long, ByVal dwExtraInfo as Long) Private Const vk_snapshot = &h2c ' screenshot call keybd_event (vk_snapshot, 0, 0, 0) ' Set the pasteboard image as Form background if Clipboard.getformat (vbcfbitmap) then Set me.picture = Clipboard.getdata

　　

VB with API analog screenshot key Printscreen