by Felipe Zaldivar de la O (2 Submissions)
Category: Graphics
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(3 Votes)
When u've Style Xp and u take a screenshot u´ll see that the taskbar ´ll not appear this solves the problem!!!! :::::Take screenshots with only 7 lines ::::: Rate me pls!!!!!
API DeclarationsPrivate Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
VBcoders
'''1 picture box
'''1 commandbutton
Private Sub Command1_Click()
Dim tempfile As String
tempfile = App.Path & "\picture.bmp"
keybd_event vbKeySnapshot, 0, 0, 0
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), tempfile
Picture1.Picture = LoadPicture(tempfile)
End Sub