Ayuda con SMTPServer y MessageBox.Show :)

Bueno, estoy haciendo una app. para mandar mails (con SMTP), con un ProgressBar.
Tengo 2 dudas:
1)Cómo hago para mostrar una MessageBox.Show cuando ProgressBar1 está al 100%?
Esto es lo que intenté. Sé que lo que está en rojo está mal pero no se que poner para reemplazarlo:

Código:

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.[color=red]Click[/color]
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation
    End Sub

2)Cómo hago para mandar un mail? Además, dónde debo poner el código?
Estos son los códigos que intenté:

Código:

            Dim from As String
            Dim To As String
            Dim subject As String
            Dim messageText As String
            SmtpMail.Send(from, To, subject, messageText)

Código:

            Private mailMsg As MailMessage = New MailMessage()
            Private mailMsg.From = smtp.live.com
            Private mailMsg.To = pepe@hotmail.com
            Private mailMsg.Subject = "lalala"
            Private mailMsg.Body = "lalala"
            SmtpMail.Send(mailMsg)

Desde ya, muchas gracias.