Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Sleep(1000)
        Dim b As New Bitmap(SystemInformation.VirtualScreen.Width, _
          SystemInformation.VirtualScreen.Height)
        Dim g As Graphics = Graphics.FromImage(b)
        g.CopyFromScreen(0, 0, 0, 0, b.Size)
        g.Dispose()
        b.Save("C:\Screenshot.bmp")
       Me.Visible = True
    End Sub