<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function GetAsyncKeyState Lib "user32" _
  (ByVal vKey As Long) As Integer
 
Const VK_SNAPSHOT = &H2C
 
<font color=green>' Prüfen, ob die Windowstaste gedrückt wurde</font>
Private Sub Timer1_Timer()
  If CBool(GetAsyncKeyState(VK_SNAPSHOT) And 1) Then
    <font color=green>' Zwischenablage löschen</font>
    Clipboard.Clear
  End If
  DoEvents
End Sub</code>