[الوادي]

يا محمد،

جرب هذه الطريقة يمكن تناسبك، بسبب عدم امكانية معرفة النسبة المنجزة للعملية استخدمت النمط ProgressBarStyle.Marquee

PHP كود :

Public Class Form1

    Dim thr As Threading.Thread

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False

    End Sub


    ' إبدأ الارسال '
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        thr = New Threading.Thread(AddressOf task)
        thr.IsBackground = True
        thr.Start()
        ProgressBar1.Style = ProgressBarStyle.Marquee
    End Sub

    ' إلغاء الارسال '
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Not IsNothing(thr) Then
            thr.Abort()
            ProgressBar1.Style = ProgressBarStyle.Blocks
        End If
    End Sub


    Sub task()

        Try
            Dim mail As New MailMessage
            mail.Subject = "email"
            mail.To.Add(TextBox2.Text)
            mail.From = New MailAddress(TextBox2.Text)
            mail.Body = "good"
            Dim smtp As New SmtpClient("smtp.mail.yahoo.com")
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBox2.Text, TextBox3.Text)
            smtp.Port = "587"
            smtp.Send(mail)
            MsgBox("mail sent")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        ProgressBar1.Style = ProgressBarStyle.Blocks

    End Sub

End Class