ممنون جناب شاهپیری. مشکلم حل شد.
بدون نمایش پیشرفت که خیلی اعصاب خورد کن میشه مخصوصا اگه طول بکشه.
به یک روش دیگه تونستم برای خودم پروگرس بار درست کنم. در تست هایی که داشتم عمکرد دقیق و خوبی هم داشت. حتی تونستم برای استخراج فایل های xz هم پروگرس بار درست کنم. فقط با یک تایمر و متد سایز فایل . ممکنه روش استانداردی نباشه ولی ظاهرا خوب کار میکنه و میتونه این محدودیت رو برطرف کنه
البته اون فایل حجیم با فشردگی زیاد رو خودم ساختم تا مشکلش تو گوشی های سریع تر هم کاملا مشخص باشه وگرنه با فایل های دیتابیس معمولی تو گوشی های کند تر هم همین مشکل رو داشتم .
Dim t1 As Timer
Dim ucsize As Long = 156912640
Dim przip As PersianZipManager
t1.Initialize("t1",500)
przip.initialize("przip")
Sub Button1_Click
przip.extractXZ(File.DirRootExternal&"/Folder/File.xz",File.DirRootExternal&"/Folder/File.db")
t1.Enabled = True
End Sub
Sub t1_Tick
Dim percent As Int = ((File.Size(File.DirRootExternal&"/Folder","File.db")) / ucsize) * 100
Label1.Text = percent & "%"
ProgressBar1.Progress = percent
End Sub
Sub przip_onSUCCESS
t1.Enabled = False
Label1.Text = "100%"
ProgressBar1.Progress = 100
End Sub