Yaptığınız Programı Kimler Kullanıyor Öğrenin

[SIZE=3][COLOR=white]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim smtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        smtpServer.Credentials = New Net.NetworkCredential("gmailadresiniz", "Şifreniz")
 
        smtpServer.Port = 587
        smtpServer.Host = "smtp.gmail.com"
        smtpServer.EnableSsl = True
        mail = New MailMessage()
        mail.From = New MailAddress("gmailiniz")
        mail.To.Add("gönderilecekyer")
        mail.Subject = Me.Text & " Adlı Programınız Kullanıldı !"
        mail.Body = Me.Text & " Adlı Programınız " &  My.Computer.Name & " Adlı Bilgisayardan Kullanıldı!" & vbNewLine  & "Siber-Bilgi.Blogspot.com / AkabeDesing"
        smtpServer.Send(mail)
 
    End Sub                      [/COLOR][/SIZE]