Try
Dim lobj_smtpServer As New SmtpClient()
Dim lobj_mailMessage As New MailMessage()
lobj_smtpServer.Credentials = New Net.NetworkCredential("usuariodogmail@gmail.com", "senhadogmail")
lobj_smtpServer.Port = 587
lobj_smtpServer.Host = "smtp.gmail.com"
lobj_smtpServer.EnableSsl = True
lobj_mailMessage= New MailMessage()
lobj_mailMessage.From = New MailAddress("usuariodogmail@gmail.com")
lobj_mailMessage.To.Add(“emaildequemvaireceberamensagem@exemplo.com”)
lobj_mailMessage.Subject = "Teste de E-Mail"
lobj_mailMessage.Body = "Esta mensagem é para testar o envio de mensagens através do GMail"
smtpServer.Send( lobj_mailMessage )
MsgBox("Mensagem Enviada")
Catch ex As Exception
MsgBox(ex.ToString)
End Try