سؤال حول prgress bar

بالنسبة لرؤية Progress Bar يتحرك أثناء نقل البيانات وينتهي بنهاية النقل أعمل الكود التالي

لنفترض أنه لديك جدول يحتوي على بيانات تريد نقلها أو إظهارها في جريد أو أي شي آخر

ProgressBar1.min=0 
progressbar1.Max = RS.Recordcount-1
Progrssbar.value=0

وفي الدوراة تعمل الكود بزيادة واحل لكل سجل 

أي أنه يكون الكود التالي 

Progrssbar.value=Progrssbar.value +1

أشكرك أخي الكريم على ردك..

وهذا مثال آخر توصلت اليه عن طريق موقع www.planet-source-code.com وهو بالمناسبة موقع مفيد جدا للمبرمجين

Progress B184494162001.zip