try this ..

Imports System.Net.Mail
Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
       Dim mail As New System.Net.Mail.MailMessage()

       Dim msgBody As String = String.Empty

       Dim smtp As System.Net.Mail.SmtpClient = New SmtpClient()

       mail.From = New System.Net.Mail.MailAddress("type your email here
like me@gmail.com", "type your name here and it will appear in the email")

       mail.[To].Add("type the eamil you want to sent to like
friend@hotmail.com")

       mail.Subject = "type the title here"

       mail.Body = "type your message here"

       mail.IsBodyHtml = True

       smtp.Host = "smtp.gmail.com"

       smtp.Port = 25

       smtp.EnableSsl = True

       smtp.Credentials = New System.Net.NetworkCredential("type your email
here like  me@gmail.com", "Type password here")

       Try

           smtp.Send(mail)
           MsgBox("the message sent successfully")
       Catch ex As System.Exception

           MsgBox(ex.Message)
       End Try

   End Sub
   
End Class