اخوانى الكرام هذا كود للعلامة خبور خير اود ان افهمه كى اعدل علية واطبقه على مشروعى وشكرا          '---------------------------------          (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