why does this keyboard example not work?

[martin webster]

Hi all,
I found this example in the window-eyes help in the RegisterHotkey section.  
This script loads, but nothing happens.  It is meant to be able to detect 
whether a hotkey has been pressed twice, but it doesn't say anything.  
' Detect if a key has been pressed twice in succession
Set registeredKey = Keyboard.RegisterHotKey("Control-Shift-Windows-R", 
"SpeakHelloWorld",
, , True)
Sub SpeakHelloWorld(firstPress)
       If Not firstPress Then
                 Speak "Key pressed twice in succession"
       End If
End Sub

Can somebody explain why this doesn't work.  I would all so like an example of 
the toggle method. 
Warm regards.
Martin Webster.