Dim Mess
Dim lEvtCnt

Sub Main
	Set Ctrl = Cao.AddController("Sample", "CaoProv.DENSO.Joystick", "", "ID=1")
	Set Mess = App.Attach(Ctrl)
	
	' イベントを100回取得するまで待機
	Do Until lEvtCnt = 100
		Ext.Delay(10)
	Loop

	' X-Y取得
	set X = Ctrl.AddVariable("@X")
	set Y = Ctrl.AddVariable("@Y")
	DBG.Output "(X,Y) = " & X.Value & ", " & Y.Value
End Sub

Sub App_OnMessage(lIndex, Msg)
	Dbg.Output Msg.Number & ":" & Msg.Value
	lEvtCnt = lEvtCnt + 1
End Sub