Как программно нажать PrintScreen - VB

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2
 
Private Sub Picture1_Click()
Clipboard.Clear
Call keybd_event(&H2C, 0, 0, 0)
Call keybd_event(&H2C, 0, KEYEVENTF_KEYUP, 0)
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Picture1.Picture = Clipboard.GetData
Timer1.Enabled = False
End Sub