REM ***** BASIC ***** Dim oDialog As Object Sub Main() Dim oLibContainer As Object, oLib As Object Dim oInputStreamProvider As Object Dim oProgressBar As Object Const sLibName = "ToolkitControls" Const sDialogName = "ProgressBarDlg" REM load/get library and input stream provider oLibContainer = DialogLibraries oLibContainer.loadLibrary( sLibName ) oLib = oLibContainer.getByName( sLibName ) oInputStreamProvider = oLib.getByName( sDialogName ) REM create dialog control oDialog = CreateUnoDialog( oInputStreamProvider ) REM hide progress bar oProgressBar = oDialog.getControl("ProgressBar1") oProgressBar.setVisible( False ) REM show the dialog oDialog.execute() End Sub Sub ProgressBarDemo() Dim oProgressBar As Object, oProgressBarModel As Object Dim oCancelButtonModel As Object Dim oStartButtonModel As Object Dim ProgressValue As Long REM progress bar settings Const ProgressValueMin = 0 Const ProgressValueMax = 50 Const ProgressStep = 1 REM set minimum and maximum progress value oProgressBarModel = oDialog.Model.ProgressBar1 oProgressBarModel.ProgressValueMin = ProgressValueMin oProgressBarModel.ProgressValueMax = ProgressValueMax REM disable cancel and start button oCancelButtonModel = oDialog.Model.CommandButton1 oCancelButtonModel.Enabled = False oStartButtonModel = oDialog.Model.CommandButton2 oStartButtonModel.Enabled = False REM show progress bar oProgressBar = oDialog.getControl("ProgressBar1") oProgressBar.setVisible( True ) REM increase progress value every second For ProgressValue = ProgressValueMin To ProgressValueMax Step ProgressStep oProgressBarModel.ProgressValue = ProgressValue Wait 40 Next ProgressValue REM hide progress bar oProgressBar.setVisible( False ) REM enable cancel and start button oCancelButtonModel.Enabled = True oStartButtonModel.Enabled = True End Sub