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