Dim vbMailMessage As New MailMessage
Dim FX As New System.Net.WebClient
vbMailMessage.From = New MailAddress(txtUsername.Text)
vbMailMessage.To.Add(txtTo.Text)
vbMailMessage.Subject = txtSubject.Text
FX.Dispose()
vbMailMessage.Body = rtbBody.Text
Dim SMTPSettings As New SmtpClient(txtSMTP.Text)
SMTPSettings.Port = txtPort.Text
SMTPSettings.Credentials = New System.Net.NetworkCredential(txtUsername.Text, txtPassword.Text)
SMTPSettings.EnableSsl = True
Try
SMTPSettings.Send(vbMailMessage)
MsgBox("Message successfully sent!", MsgBoxStyle.Information, "Message Sent!")
Catch ex As SmtpException
MsgBox("Message couldn't be sent!", MsgBoxStyle.Critical, "Sending Error!")
End Try