شرح لاداة الprogress bar

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي :: أبو صابرين ::

هذا هو كود المثال الذي طلبته :

Dim I As Byte
For I = 1 To 100
If MsgBox("هذه هي الرسالة رقم " & I & " ، هل تريد المتابعة ؟", vbQuestion + vbYesNo) = vbNo Then Exit For
ProgressBar1.Value = I
Next

والسلام عليكم ورحمة الله وبركاته ...

شكرا لك اخي المبرمج احمد

ولكن يجب تغيير الخصائص التالية للprogress bar

ProgressBar1.Value = 0

progressbar1.max = 100

وذلك حتى تبدو العملية منطقية

ولكن شكرا لك فانت اعطيتني طرف الخيط

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: أبو صابرين ::

يبدو أنك تقصد تعيين Min و Max :

ProgressBar1.Min = 0
ProgressBar1.Max = 100

أخبرني ما الذي تريد معرفته عن هذه الأداة

والسلام عليكم ورحمة الله وبركاته ...