Sub Main
	' プロバイダのコントロール取得
	Set oCtrl = cao.AddController("RC1", "CaoProv.Dummy", "", "")
	
	' タスクの取得
	Set oTask = oCtrl.AddTask("@ALL")

	' 連続実行
	oTask.Start(2)

	' 初期化停止
	oTask.Stop(4)

End Sub