kam tentuar qe te programoj nje send mailer me vb.net

po diqka spo me shkon si duhet kontrolloni dikush kete kod

Imports System.Net.Mail

Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential("info.une@gmail.com", "passwordi im")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
mail = New MailMessage()
mail.From = New MailAddress("info.une@gmail.com")
mail.To.Add("info.une@gmail.com")
mail.Subject = "Test Mail"
mail.Body = "provova por badihava"
SmtpServer.Send(mail)
MsgBox("mail send")
Catch ex As Exception
MsgBox(ex.ToString)
End Try