Скриншот активного окна

Dim bmp As Bitmap = New Bitmap(System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
Dim scr As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(bmp)
scr.CopyFromScreen(System.Windows.Forms.Screen.PrimaryScreen.Bounds.X, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Y, 0, 0, System.Windows.Forms.Screen.PrimaryScreen.Bounds.Size, System.Drawing.CopyPixelOperation.SourceCopy) ' 
bmp.Save("D:/1.png")

Private Declare Sub keybd_event Lib "user32.dll" _
          (ByVal bVk As Byte, ByVal bScan As Byte, _
             ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        keybd_event(44, 1, 0, 0)
    End Sub