How Do I Send A Email From Vb.Net To My Gmail

Dim SmtpServer As New SmtpClient()
            Dim mail As New MailMessage()
            SmtpServer.Credentials = New Net.NetworkCredential("yourusername", "yourpassword")
            SmtpServer.Port = 587'used gamil outgoing TSL port here - enter your own
            SmtpServer.Host = "smtp.gmail.com"'used gmail as host - enter your own host
            mail = New MailMessage()
            mail.From = New MailAddress("youremailaddress")
            mail.To.Add("addresstosendto")
            mail.Subject = "Add subject here"
            mail.Body = "add body here"
            SmtpServer.Send(mail)

Dim pweda As String = "FromMailPassword"
'(ConfigurationManager.AppSettings["password"]);
Dim from As String = "FromYourmail@gmail.com"
'Replace this with your own correct Gmail Address
Dim [to] As String = "abc@gef.com"
'Replace this with the Email Address to whom you want to send the mail
Dim mail As New System.Net.Mail.MailMessage()
mail.[To].Add([to])
mail.From = New MailAddress(from)
mail.Subject = "This is a test mail"
mail.SubjectEncoding = System.Text.Encoding.UTF8
mail.Body = "Test Mail."

mail.Priority = MailPriority.High
Dim client As New SmtpClient()

'Add the Creddentials- use your own email id and password
client.UseDefaultCredentials = False
client.Credentials = New System.Net.NetworkCredential(from, pweda)
client.Port = 587
' Gmail works on this port
client.Host = "smtp.gmail.com"
client.EnableSsl = True
'Gmail works on Server Secured Layer
Try
	client.Send(mail)
	Response.Write("Message Sent...")
Catch ex As Exception
	Dim ex2 As Exception = ex
	Dim errorMessage As String = String.Empty
	While ex2 IsNot Nothing
		errorMessage += ex2.ToString()
		ex2 = ex2.InnerException
	End While
	HttpContext.Current.Response.Write(errorMessage)
End Try