[oopic] oopic oEvent not working

In this sample code

WIRE.Output.Link(LED.State) - works
WIRE.Output.Link(BLINK.Operate) - not working

oEvent its not working ?
Guys have any idea whats wrong ?
I use OOpic II+ c 1.1+ and OOPic II Expansion Card
SUPERDROIDROBOTS.com:
///////////////////////////////////////code
Dim WIRE As New oWire
Dim LED As New oDIO1
Dim Switch1 As New oDIO1
Dim BLINK As New oEvent

Sub Main()
LED.IOLine = 20
LED.Direction = cvOutput
Switch1.IOLine = 12
Switch1.Direction = cvInput
WIRE.Input.Link( Switch1.State)
// WIRE.Output.Link(BLINK.Operate) --- does not work
WIRE.Output.Link(LED.State) --- works
WIRE.Operate = cvTrue
End Sub
Sub BLINK_Code()
LED.State = 1
LED.State = 0
LED.State = 1
End Sub

Yahoo! Groups Links

<*> To visit your group on the web, go to:

http://groups.yahoo.com/group/oopic/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:

http://groups.yahoo.com/group/oopic/join

(Yahoo! ID required)

<*> To change settings via email:
mailto:oopic-digest@yahoogroups.com
mailto:oopic-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
oopic-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:

http://docs.yahoo.com/info/terms/