أريد شرح لهذا الكود

[عمرو.محمد]

اخوانى الكرام هذا كود للعلامة خبور خير اود ان افهمه كى اعدل علية واطبقه على مشروعى وشكرا

         '---------------------------------
         (Call kh_Update_Par(i, Lr)
        DoEvents
        '------------------------------
==============================================================

  Private Sub kh_Update_Par(MI As Long, MX As Long)
Static N As Integer
If N = 0 Then
    Me.MousePointer = 11
    Me.LabelPar.Visible = True
    Me.LabelPar.Caption = ""
    N = Int(MX / 30)
End If
'----------------------------------
If N Then If MI Mod N = 0 Then Me.LabelPar.Caption = Me.LabelPar.Caption & "n"
'----------------------------------
If MI = MX Then
    N = 0
    Me.LabelPar.Visible = False
    Me.MousePointer = 0
End If
End Sub

==========================================================================

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If Me.MousePointer = 11 Then Cancel = 1
End Sub

 

[ياسر خليل أبو البراء]

أخي الكريم عمرو

الأكواد بدون ملف مرفق خصوصاً أكواد الأستاذ الكبير عبد الله باقشير ستكون طلاسم ولن يسهل شرحها على الإطلاق

قم بإرفاق الملف الذي يحتوي الكود مع شرح الهدف من الكود ..

تقبل تحياتي

[عمرو.محمد]

حاضر اخى الكريم واود المساعدة جزاكم الله كل خير .
المرفق به ملفين احدهم للعلامة عبدالله باقشير يحتوى على فورم بحث ومثبت عليه label لتقدم العملية 
والاخر به ملف يحتوى على فورم  ادخال بيانات 
المطلوب اود تنفيذ شريط التقدم الموجود فى ملف الاستاذ عبدالله باقشير على الفورم الاخرى فى الملف Book1
وشكرا..

New WinRAR archive.RAR

حاولت كثيرا ولكنى حقا لم استطيع التنفيذ ولم افهم الكود 

[عمرو.محمد]

للرفع يا اهل الخير.

[عمرو.محمد]

للرفع