'!TITLE "Cao & Event Handling"

Dim g_Counter As Integer = 0

Sub Main()
	''Dim Cao As Object
	''Cao = CaoEng.AddWorkspace( "PacScript" ) = CaoWorkspace named "PacScript"

	Dim ctrl As Object
	ctrl = Cao.AddController( "QR", "CaoProv.DENSO.QRCode", "", "Conn=com:6:38400:N:8:1, Mode=5, Protocol=0:0:0" )

	PrintDbg "AddHandler >>>>>>>>>>>>>>"
	AddHandler ctrl, "OnMessage", OnMessage
	 
	g_Counter = 0
	Do
		If g_Counter >= 3 Then Exit Do
	Loop
	
	RemoveHandler ctrl
	PrintDbg "RemoveHandler <<<<<<<<<<<"
	
End Sub

'Event Handler for OnMessage
Sub OnMessage( ByVal Sender As Object, ByVal Args As Variant )
	Dim msg as object

	msg = Args(0) '::= CaoMessage object
	PrintDbg "" & Time & " - CODE = [" & msg.Value & "]"
	g_Counter = g_Counter + 1
End Sub