• Home
 · 
• Graphics
 · 
• Easy ScreenShot

Easy ScreenShot

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 Declarations
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Rate Easy ScreenShot

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

'''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