Boa tarde,
Veja se o exemplo lhe ajuda:

Código:
Sub CarregarDialogoProgresso
Dim oDialogo As Object, oBarraProgresso As Object
Dim i As Integer
'Carregar o Diálogo de Progresso'
DialogLibraries.loadLibrary( "Standard" )
oDialogo = CreateUnoDialog( DialogLibraries.Standard.DialogoProgresso )
'Obter a barra de progresso'
oBarraProgresso = oDialogo.Model.getByName( "ProgressBar1" )
'Definir os valores mínimo e máximo da barra de progresso'
With oBarraProgresso
.ProgressValueMin = 1 'Valor mínimo'
.ProgressValueMax = 15 'Valor máximo'
End With
' Invocar o dialogo pela propriedade Visible (Diálogo não modal) '
' para que barra de progresso seja exibida "carregando" '
oDialogo.Visible = True
For i = 1 To 15
oBarraProgresso.ProgressValue = i
Wait 200
Next i
'Após o final do loop, o diálogo é descartado automaticamente por ter sido invocado'
'como não modal
End Sub
Atte,