[VB.NET] Screen Capture

Add form:

• Picturebox
  
• Timer = Interval: 600

Insira o Seguinte código no Timer1:

Código:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim BackUpClipboard As String = My.Computer.Clipboard.GetText
        SendKeys.Send("{PRTSC}")
        PictureBox1.Image = My.Computer.Clipboard.GetImage
    End Sub

Insira o Seguinte código no Form1:

Código:

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

Código completo:

Código:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim BackUpClipboard As String = My.Computer.Clipboard.GetText
        SendKeys.Send("{PRTSC}")
        PictureBox1.Image = My.Computer.Clipboard.GetImage
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub


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

Então é isso, pressione a tecla PrtScSysRq (pelo menos no meu notebook é assim), e o seu print sairá na picturebox.

Se ajudei agradeça, não seja sanguessuga como diz nas regras :troll: