Private Function KeyboardHookProc(ByVal nCode As Integer, _
      ByVal wParam As IntPtr, _
      ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
 
        Dim fEatKeyStroke As Boolean
 
        If (nCode = HC_ACTION) Then
            If (wParam = WM_KEYDOWN) Then
 
                Select Case lParam.vkCode
                    '(fEatKeyStroke = True)
                    Case Keys.PrintScreen
                        fEatKeyStroke = True
                        'Auszuführende Aktion:
                        btnScreenCapture_Click(Nothing, Nothing)
                End Select
 
                If fEatKeyStroke Then
                    Return New IntPtr(1)
                    Exit Function
                End If
 
                Return CallNextHookEx(mHandle, nCode, wParam, lParam)
            End If
        End If
    End Function