السلام عليكم   هذه طريقة خفيفة عملتها ، بحقل واحد ، ونستخدم فيه الخط بسطرين . . . بهذا الكود: Option Compare Database Dim i As Integer Dim A As String Private Sub Form_Open(Cancel As Integer) i = 0 Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) Me.lbl_Meter.Caption = A Me.pr = "تقدم م