ขอ Code Vb.net ดึงรูปมาละส่งเข้าเมล ทีครับ ต้องการมากๆ

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click

    Dim myMail As New MailMessage()

    myMail.From = New MailAddress("[email protected]")
    myMail.To.Add(New MailAddress(Me.txtTo.Text))

    myMail.Subject = Me.txtSubject.Text
    myMail.Body = Me.txtMessage.Text

    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files1.txt")))
    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files2.txt")))
    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files3.txt")))
    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files4.txt")))
    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files5.txt")))
    myMail.Attachments.Add(new MailAttachment(Server.MapPath("MyAttach/files6.txt")))

    myMail.Priority = MailPriority.High ' MailPriority.High , MailPriority.Low  MailPriority.Normal


    Dim Client As New SmtpClient()
    'Client.Host = "192.168.0.1"
    Client.Send(myMail)

    MessageBox.Show("Mail Send Complete!")

End Sub