Private Sub TakeScreenshot()
        Dim largeur As Integer = Screen.PrimaryScreen.Bounds.Width
        Dim hauteur As Integer = Screen.PrimaryScreen.Bounds.Height

        Dim screenshot As New Bitmap(largeur, hauteur)
        Dim graph As Graphics = Graphics.FromImage(screenshot)
        graph.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size, CopyPixelOperation.SourceCopy)

        PictureBox1.Image = screenshot
    End Sub
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        TakeScreenshot()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TakeScreenshot()
        Me.Opacity = 1
        Me.ShowInTaskbar = True
        Timer1.Stop()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        TakeScreenshot()
    End Sub


    Private Sub SauvegarderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauvegarderToolStripMenuItem.Click
        Dim sfd As New SaveFileDialog
        sfd.Filter = "Image PNG|*.png|Image JPEG|*.jpg"
        sfd.FileName = ""
        sfd.Title = "Choisir une destination"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image.Save(sfd.FileName)
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub CapturerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CapturerToolStripMenuItem.Click
        TakeScreenshot()
    End Sub

    Private Sub CacherLaFenetreToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CacherLaFenetreToolStripMenuItem.Click
        Me.Opacity = 0
        Me.ShowInTaskbar = False
        Timer1.Start()
    End Sub
End Class