' 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