Zaman ayarlı progress bar

[kenangulal]

merhaba, ben aşağıdaki koda ufak bir progres bar eklemek istiyorum forumdaki örneklerlerde buna benzer kodla çalışan bir progress bar yok, süre ayarlı olduğundan gerçek zamanlı bir progress bar yapabilirmiyim ,yardımcı olabilirmisiniz.?
syg.

Private Sub UserForm_Initialize()

Application.OnTime Now + TimeValue("00:0:5"), "kapat"

End Sub

 

[Ali]

Ekte farklı progress barlar var işinizi göreceğini umuyorum. İyi çalışmalar

 

[kenangulal]

sayın fructose cevabınız için teşekkürler ancak birden fazla örnek olduğu için biraz karışık geldi, sadece ilk örneğin kodlarını ayıklama imkanımız varmı?
syg.

 

[kenangulal]

merhaba, progress bar ile ilgili daha basit bir örnek verebilirmisiniz. aşağıdaki kodu kullanıyorum.
syg.

Private Sub UserForm_Initialize()

Application.OnTime Now + TimeValue("00:0:5"), "kapat"

End Sub

 

[Ali]

Ekte başka bir örnek var bu daha basit bir örnek

 

[kenangulal]

sayın fructose kodları kendime göre uyarladım çok güzel oldu , ilginiz ve çözümünüz için teşekkür ederim.
syg.

 

[parametre]

ekleri goremiyoruz guncelleme mumkunmudur ?

 

[Ali]

Dosya eklenmiştir.

Progresbar


.

.

 

[parametre]

tesekkur ederiz