VB.NET'te smtp email gönderme işlemini nasıl progressbar1'e bağlayabiliriz

[Vatansever]

VB.NET'te hazırladığım email gönderme uygulamasına çok uğraştım ama progressbar1'i bağlayamadım bu konuda internette hiçbir bilgi bulamadım bu konuda bilgisi olan arkadaş yardım edebilirmi (hem yazı gönderiliyor hemde openfiledialog ile eklediğim dosya ilerleme durumunu göstermesini istiyorum)
Kodlar aşağı yukarı aşağıda benim internetten bulduğum kod bu bunu kullanarak kendi çalışmamı hazırladım

Imports System.Web.Mail
Imports System.IO


    Dim mailMessage As System.Web.Mail.MailMessage = New System.Web.Mail.MailMessage()
    Dim mailServer As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim completeErrorMessage As String

        mailMessage.To = txtTo.Text
        mailMessage.From = txtFrom.Text
        mailMessage.Subject = txtSub.Text
        mailMessage.Body = txtBody.Text

        Try

            SmtpMail.SmtpServer = "mail.vbcodesource.com" ' mailServer '"mail.vbcodesource.com"
            SmtpMail.Send(mailMessage)

        Catch mailError As System.Web.HttpException

            MsgBox(mailError.Message, MsgBoxStyle.Critical, " Error Message")

        End Try

        mailMessage.Attachments.Clear()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim openFile As OpenFileDialog = New OpenFileDialog()
        Dim attach As MailAttachment ' = New MailAttachment("c:\fipk.jpg")
        Try

            openFile.Filter = "All Files (*.*)|*.*"
            openFile.ShowDialog()

            attach = New MailAttachment(openFile.FileName)
            mailMessage.Attachments.Add(attach)

            lblAttach.Text = "Attachments: " & attach.Filename & " - " & FileLen(attach.Filename) / 1000 & "KB"

        Catch mailError As System.Web.HttpException

            MsgBox(mailError.Message.ToString, MsgBoxStyle.Critical, " Error Message")

        End Try

        openFile.Dispose()
    End Sub

 

[anamur]

Bu işlerde progress bar olayı yalandır. Anladığım kadarıyla sen dosyayı sectiğinde progress barın çalışmasını istiyorsun. Sana şölye tavsiyede bulunabilirim. Dosyanın boyutuna orantılı bir yol secebilirsin. Mesela dosya 10 mbdır 10/2 deyip 5 sn de doldurursun progress barını. Bu formilizasyon tamamen sana kalmış durum