A simple function to send an email:

   Public Sub sendEmail(ByVal EmailAddress As String, ByVal Subject As String, ByVal EmailBody As String, ByVal FromAddress As String)    
      Dim Message As New MailMessage(FromAddress, EmailAddress, Subject, EmailBody)    
      Dim smtp As New SmtpClient("127.0.0.1")    
      Dim NetworkCredentials As New System.Net.NetworkCredential    
      
      NetworkCredentials.UserName = "example"    
      NetworkCredentials.Password = "example"    
      smtp.Credentials = NetworkCredentials    
      smtp.Send(Message)    
    End Sub   

NOTE: Remember to add "Imports System.Net.Mail" to your page/class.