' Gambas class file
PUBLIC SUB _new()
ProgressBar1.value = 0.01
END
PUBLIC SUB Button1_Click()
ProgressBar1.value = ProgressBar1.value - 0.01
END
PUBLIC SUB Button2_Click()
ProgressBar1.Reset
END
PUBLIC SUB Button3_Click()
ProgressBar1.value = ProgressBar1.value + 0.01
END
-- JochenGeorges - 28 Dec 2004