## How to use a Progressbar

    ' 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