Não sei se entendi direito oq vc necessita mas tenta o seguinte:

 

Private Sub Data1_Reposition()
If Data1.Recordset.EOF = False Then
    PB1.Value = Data1.Recordset.PercentPosition
Else
    PB1.Value = 0.1
End If
End Sub

 

Onde: PB1 = Progress Bar

 

Ate Mais

 

O Delay de um progressbar depende de muitos fatores... Explique-se melhor, o que exatamente vc quer fazer?

Acho que te entendi;.....

Vc está usando o progress apenas como um temporizador. Ou seja, tens um objeto timer no seu projeto que muda o valor do progress, é isso?

Cara, tu vais ter que "amarrar" teu progress aos processos que tu queres que o usuario veja. Por exemplo: se vc está listando uma tabela em um combobox vc fará o seguinte.

 

Progress.Value = Progress.Min

Progress.Max = Recordset.RecordCount

Do While Not Recordset.Eof

    Comobo.additem Recordset("NomeDoCampo")

    Progress.Value = Progress.Value + 1   

    Recordset.MoveNext

loop

 

Espero ter ajudado...

vc quer que ele carregue na abertura do projeto..  em uma tela de splash??  se 'e isso e colocar o valor real vai abrir tao rapido que naum vai nem ver...  e se vc colocar ele para carragar de acordo com os registro de uma tabala de dec clientes por exemplo..  isso pode ser um futuro problema..  pois quanto mais cliente cadastrado... mais vai demorar para abrir...

 

falow