Code: Select all
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
thanks in advance