عن شريط التقدم

هذا مثال قديم في المنتدى ان كان يكفيك والا اخبرني

http://www.arabteam2000.com/vb/showthread....%C7%E1%ED%E6%E3

شكرا اخوي ورح اشوف الرابط واجربه

شكرا مرة اخرى

للفائدة العامة

لاستخدام شريط الحالة في نسخ ملف معين

قم بإدارج زر أمر Command1

وأداة عرض النص Label1

وأداة شريط الحالة ProgressBar1

ثم قم بإدارج الكود التالي

Private Sub Command1_Click()
Dim Data As Byte
Open "c:anyfile.jpg" For Binary As #1 'Source
Open "c:copy.jpg" For Binary As #2 'Destination
ProgressBar1.Max = LOF(1)
For i = 1 To LOF(1)
    Get #1, i, Data
    Put #2, i, Data
    Label1.Refresh
    Label1.Caption = Int(i / LOF(1) * 100) & "%"
    ProgressBar1.Value = i
    DoEvents
Next
Close #1
Close #2
End Sub

وشكرا