Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte,ByVal bScan As _
  Byte,ByVal dwFlags As Long,ByVal dwExtraInfo As Long)
 
Private Fldr As String = "C:\Screenshooter_Screenshots"
 
Private sub screenshot()
  Dim i As Long = 0
  Do While System.IO.File.Exists(Fldr & "\screenshot_" & i & ".bmp") = True
    i += 1
  Loop
  Dim sFile As String = Fldr & "\screenshot_" & i & ".bmp"
  Const KEYEVENTF_KEYUP = &H2
  Const VK_SNAPSHOT = &H2C
  keybd_event(VK_SNAPSHOT,0,0,0)
  keybd_event(VK_SNAPSHOT,0,KEYEVENTF_KEYUP,0)
  Clipboard.GetImage().Save(sFile)
End Sub