Отправить email при помоши vb

Формулировка задачи:

у меня стоит visual basic 2010 express как мне зделать так чтобы при вводе в текстовое окно и нажатия определоной кнопки отпровлялся email на определёный адрес ?

Решение задачи: «Отправить email при помоши vb»

textual
                            Листинг программы 
                        

                            Imports System.Net.Mail
 
Public Class Form1
 
 
 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Start()
 
 
    End Sub
 
   
   
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("емайл отправителя", "пароль")
        SmtpServer.Port = 25
        SmtpServer.Host = "smtp.rambler.ru"
        SmtpServer.EnableSsl = False
        mail.To.Add("емайл отправителя")
        mail.From = New MailAddress("получятель")
        mail.Subject = "тема"
        mail.Body = TextBox1.Text
        SmtpServer.Send(mail)
        Timer1.Stop()
    End Sub
End Class
                        