myForm = VCL.Form("myForm")
myForm.onclick = "HandleFormClick"

local pc = VCL.PageControl(myForm,"PC")
pc._ = {align="alClient", onchange="HandleTabs"}
local sb = VCL.StatusBar(myForm,"SB")
pc.ts1 = VCL.TabSheet(pc,"TS1")
pc.ts2 = VCL.TabSheet(pc,"TS2")
pc.ts1_ = {caption = "TAB1",align="alClient"}
pc.ts2_ = {caption = "TAB2",align="alClient"}

pc.ts1.pb = VCL.ProgressBar(pc.ts1,"PB")
pc.ts1.pb._ = { position=50, smooth="true", step=10 }

function HandleFormClick(Sender)
	pc.ts1.pb:StepIt()	
end

function HandleTabs(Sender)
	sb.SimpleText = Sender.ActivePage.Name
end