[kslawy]

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

تحقق من كل شيء في حدث Completed الخاص بالأداة :

كود :

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        If e.Error IsNot Nothing Then
            MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Error")

        ElseIf e.Cancelled = True Then
            MsgBox("تم إلغاء التحميل بواسطة المستخدم", MsgBoxStyle.Exclamation, "Cancelled")

        Else
            MsgBox("اكتمل التحميل بنجاح", MsgBoxStyle.Exclamation, "Done")
        End If
    End Sub

****
***
**
*