Send E-Mail using GMail Account

Hi guys, my code is not working. the error is 'Failure sending mail'
Please have a look. TQ
Imports System.Collections.Generic Imports System.ComponentModel Imports System.Data Imports System.Drawing Imports System.Text Imports System.Windows.Forms Imports System.Net Imports System.Net.Mail Imports System.Net.Mime Imports System.Threading Private Function send_mail() As Boolean Dim msg As New System.Net.Mail.MailMessage() msg.To.Add("kengkit@gmail.com") msg.From = New MailAddress("xxx@gmail.com", "Sender Name", System.Text.Encoding.UTF8) msg.Subject = "Test mail using .net 2.0" msg.SubjectEncoding = System.Text.Encoding.UTF8 msg.Body = "This is my msg Body" msg.BodyEncoding = System.Text.Encoding.UTF8 msg.IsBodyHtml = False msg.Priority = MailPriority.High 'Add the Creddentials ...