Here is the function I wrote and use in my code. You will need to Import System.Net and System.Net.Mail at the top of the page you put it in. Below the code is the link to the reference pages for these two classes.
Private Function SendMail(Server As String, User As String, Password As String, Sender As String, Recipient As String, Subject As String, Body As String) AS Boolean
Dim client As SmtpClient
Dim email As MailMessage
email = New MailMessage(Sender, Recipient, Subject, Body)
client = New SmtpClient(Server)
client.UseDefaultCredentials = False
client.Credentials = new NetworkCredential(User, Password)
Catch ex As System.Exception
'You'll need some code here to get an error message back to you.
Look at this one to figure out how to add CC and such.