Public Class Form1
 
 
    Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
      ByVal nVirtKey As Long) As Integer
    Private Const KeyPressed As Integer = -32767
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        If GetAsyncKeyState(Keys.F12) = KeyPressed Then
            My.Computer.Keyboard.SendKeys("^c", True)
        'hier kann man evtl noch eine pause einbauen, mag ja sein dass die 
        ' "quelle" etwas zeit braucht ...
             MsgBox(My.Computer.Clipboard.GetText)
        End If
 
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 20
        Me.Visible = False
        Me.ShowInTaskbar = False
    End Sub
 
End Class