[vb 2008] script error

[otie]

hallo, ik heb een vraagje!
ik heb een script gemaakt (naar aanleiding van een tutorial op youtube)
alleen er is een fout in als ik op dat groene Play-knopje druk (debug modes)
ik had hem in een try gezet maar dat hielp niet...
deze zin is geel:
SmtpServer.Send(Mail)

hier is mijn hele code:

Imports System.Net.Mail


Public Class Form1


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

            Dim SmtpServer As New SmtpClient()
        Dim Mail As New MailMessage()
        ToolStripProgressBar1.Value = 10
            ToolStripProgressBar1.Value = 15
            SmtpServer.Credentials = New Net.NetworkCredential("habbotie@gmail.com", "hier mijn pw maar die mogen jullie niet zien")
            ToolStripProgressBar1.Value = 20
            SmtpServer.Port = 587
            SmtpServer.Host = ("smpt.gmail.com")
            ToolStripProgressBar1.Value = 30
            SmtpServer.EnableSsl = True
            ToolStripProgressBar1.Value = 40
            mail = New MailMessage()
            ToolStripProgressBar1.Value = 50
            mail.From = New MailAddress("habbotie@gmail.com")
            ToolStripProgressBar1.Value = 60
            mail.To.Add("habbotie@gmail.com")
            ToolStripProgressBar1.Value = 70
        Mail.Subject = "textbox1.text"
            ToolStripProgressBar1.Value = 80
        Mail.Body = "TextBox2.Text"
            ToolStripProgressBar1.Value = 90
        SmtpServer.Send(Mail)                                                                                                   'deze regel is geel...
            ToolStripProgressBar1.Value = 100
        If ToolStripProgressBar1.Value = 100 Then
            Do
                MsgBox("de gegevens worden verwerkt...")
            Loop

        End If


    End Sub
End Class

EDIT:
oowja weet iemand iets dat ik nog een 3e label kan laten verschijnen als de progressbar op 100% is?

EDIT: het werkt al!