function send mail VB.net

function sent Mail >>> VB.net

----------------------------------------------------
Imports System.Net.Mail
Imports System.Net

Private Sub SendMail()
Dim myMail As New MailMessage
myMail.To.Add("mail@domainmail.com") 'ชื่อเมลล์ที่ต้องการส่งถึง
myMail.CC.Add("mail@domainmail.com") 'อ้างอิงถึงเมลล์ใด
myMail.From = New MailAddress("mail@domainmail.com") 'จากเมลล์ใด(ส่วนมากเป็นชื่อเมลล์อัตโนมัติ)
myMail.Subject = "หัวเรืองเมลลฺ์ : " & TextBox1.Text
myMail.Body = "ส่วนของเนื้อเรื่อง : " & TextBox1.Text & vbCrLf & _
" ส่วนของเนื้อเรื่อง: " & TextBox8.Text & " ลิตร " & vbCrLf & _
"ส่วนของเนื้อเรื่อง : " & TextBox9.Text & " กม./ลิตร " & vbCrLf & _
"Trip meter : " & TextBox10.Text & " ลิตร " & vbCrLf & _
"%GPS ส่วนของเนื้อเรื่อง : " & TextBox25.Text & " % " & vbCrLf & _
"ส่วนของเนื้อเรื่อง : " & TextBox7.Text & " กม. " & vbCrLf & _
"ส่วนของเนื้อเรื่องม : " & DropDownList8.Text & vbCrLf & _
"ส่วนของเนื้อเรื่อง : " & DropDownList5.Text & " " & DropDownList6.Text & " " & DropDownList7.Text & vbCrLf & _
"ส่วนของเนื้อเรื่อง : " & TextBox6.Text & ":" & TextBox21.Text & vbCrLf & vbCrLf & _
"=================================" & vbCrLf & _
"ชื่อระบบ (เมลล์อัตโนมัติ)"

'SMTP Authenticate
Dim Smtp As New SmtpClient("mail.DomainMail.com")
Smtp.DeliveryMethod = SmtpDeliveryMethod.Network
Smtp.Credentials = New NetworkCredential("mail@domainmail.com", "12345678")
Smtp.Send(myMail)

End Sub