[ربيع]

نحمده ونصلي على رسوله الكريم

على افتراض ان file هي مصفوفة من نوع byte

كود :

progressBar1.Maximum = 100
Dim i As Integer = 0

Using fs As New FileStream(مسار الحفظ, FileMode.Create)
    For Each b As Byte In file
        fs.WriteByte(b)

        i += 1
        progressBar1.Value = 100 * i \ file.Length
        Application.DoEvents()
    Next b
End Using

progressBar1.Value = 0