Keylogger ?

Imports System.Net.Mail
Public Class ContactFrm
    Dim message As New MailMessage
    Dim Smtp As New SmtpClient

    Private Sub BtEnvoi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtEnvoi.Click

        Dim Fake As String
        Fake = TextBoxFake.Text
        Try
            message.From = New MailAddress(expediteurtxt.Text, Fake)
            message.To.Add(Destinateretxt.Text)
            message.Body = texttxt.Text
            message.Subject = sujetttxt.Text
            message.Priority = MailPriority.Normal

            Smtp.EnableSsl = True
            Smtp.Port = "587"
            Smtp.Host = "Smtp.gmail.com" 'Smtp.live.com, / Smtp.gmail.com
            Smtp.Credentials = New Net.NetworkCredential(expediteurtxt.Text, passexpediteurtxt.Text)
            Smtp.Send(message)
            MsgBox("Message envoyé")

        Catch ex As Exception
            MsgBox("Exception : " & ex.Message)
            ProgressBar1.Value = 100
        End Try
    End Sub

    Private Sub BtQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuit.Click
        End
    End Sub
End Class