Public Class Form1
' Bei der API musst Integer nehmen statt Long !!
    Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, _
    ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
 
    Private Const VK_SNAPSHOT As Long = &H2C
    Private Const KEYEVENTF_KEYUP As Long = &H2
 
    Private Fldr As String = "C:\Screenshooter_Screenshots"
 
    Private Sub screenshot()
        Dim i As Long = 0
        Do While System.IO.File.Exists(Fldr & "\screenshot_" & CType(i, String) _
          & ".bmp")
            i += 1
        Loop
        Dim sFile As String = Fldr & "\screenshot_" & CType(i, String) & ".bmp"
        keybd_event(VK_SNAPSHOT, 0, 0, 0)
        keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0)
        Try
            Clipboard.GetImage().Save(sFile, _
              System.Drawing.Imaging.ImageFormat.Bmp)
            Clipboard.Clear()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        screenshot()
    End Sub
End Class