Dim message As New MailMessage("sender@address", "from@address", "Subject", _
  "Message Text")
Dim emailClient As New SmtpClient("Email Server Name")
emailClient.Send(message)

emailClient.Credentials = New Net.NetworkCredential("UserName", "Password")