Sub Main
	' コントロールの取得　イベント
	Set oCtrl = cao.AddController("RC1", "CaoProv.Dummy", "", "")

	' oCtrlがOnMessageイベントを受信できるようにする
	Set oCaoMess = app.Attach(oCtrl)

	' メッセージを発生
	varResult = oCtrl.Execute("","0")

	' OnMessageが非同期処理なので少し待つ
	ext.Delay(10)	

End Sub

' メッセージを受け取った時の処理
Sub App_OnMessage(lIndex, caoMess)
	dbg.output caoMess.DateTime
End Sub