myForm = VCL.Form("myForm")

myForm.trackbar = VCL.TrackBar(myForm,"TB")
myForm.trackbar._ = {align = "alBottom", left=10,top=50,width=200, tickstyle="tsAuto", tickmarks="tmBoth", max=50, onchange="tracking"}

myForm.progressbar = VCL.ProgressBar(myForm,"PB")
myForm.progressbar._ = {align = "alTop", smooth="true"}

myForm.progressbar.label = VCL.Label(myForm.progressbar,"LB")
myForm.progressbar.label._ = {align = "alTop", alignment = "taCenter", transparent="true", caption="0%"}
myForm.progressbar.label.Font._ = { color=VCL.clWhite, style="fsBold" }

function tracking(Sender)
	myForm.progressbar.position = myForm.trackbar.position / myForm.trackbar.max * 100
	myForm.progressbar.label.caption = tostring(myForm.progressbar.position).."%"
end