اخواني انا اريد عند تحميل البرنامج يظهر شريط التقدم بعدد سجلات قاعدة البيانات ووضعت هذ الكود لكن تظهر رسالة
خطأ , لماذا؟؟؟
في Load
c = 0 For i = 0 To Data1.Recordset.RecordCount c = c + 1 Next i ProgressBar1.Max = c Timer1.Interval = 100
في timer
ProgressBar1.Value = ProgressBar1.Value + 1