myForm = VCL.Form("MyForm")
myForm._ = { left=100, top=100 }

myForm.myButton = VCL.Button(myForm, "myButton")
myForm.myButton._ = {onclick = "onMyButtonClick", width=200, caption = "Turn Event On"}

myForm.myButton.demototalclicks = 0
myForm.myButton.eventon = 0

myForm.myEdit = VCL.Edit(myForm,"MyEdit")
myForm.myEdit._ = { text=myForm.caption, top=80, left=30, width=120, onchange=nil}

function onMyButtonClick(Sender)
	myForm.myButton.demototalclicks  = myForm.myButton.demototalclicks  + 1
	myForm.caption = string.format("Total clicks on button: %d",myForm.myButton.demototalclicks )
	if myForm.myButton.eventon==1 then
		myForm.myEdit.onchange=nil
		myForm.myButton.caption = "Turn Event On"
		myForm.myButton.eventon = 0
	else
		myForm.myEdit.onchange="onMyEditChange"	
		myForm.myButton.caption = "Turn Event Off"
		myForm.myButton.eventon = 1
	end
end

function onMyEditChange(Sender)
	myForm.caption = myForm.myEdit.Text
end