• Home
 · 
• Graphics
 · 
• Functions like the print screen button

Functions like the print screen button

Functions like the print screen button

API Declarations



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 TheScreen = 0
Private Const TheForm = 1




Rate Functions like the print screen button

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

keybd_event vbKeySnapshot, TheScreen, 0&, 0&
DoEvents
Me.Picture = Clipboard.GetData(vbCFBitmap)
Clipboard.Clear
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.Top = 0
Me.Left = 0
End Sub