[wolf1120]

السلام عليكم ورحمة الله وبركته 

اريد ادراج  ProgressBar1

في المعادلة التالية 


Private Sub chose_file()
    On Error Resume Next
     Close
With CommonDialog1
     .FileName = ""
     .DialogTitle = "Open File"
     .CancelError = True
     .Filter = "All Files (*.*)|*.*"
     .ShowOpen
     strfile = .FileName
End With
End Sub

مع العلم انا الملف يتم ادراجه داخل  List1

حجم الملف 2,00 Mo 
من 000000  الى 1FFFF0
ممكن تعديل علا الكود