Windows Forms

Private Sub CreateMessage()
    Dim from As New MailAddress(fromTxt.Text.Trim, nameTxt.Text.Trim)
    Dim toAdd As New MailAddress(toTxt.Text, totitle)
    Dim msg As New MailMessage(from, toAdd)
    msg.Subject = subjectTxt.Text.Trim
    msg.Body = messageTxt.Text.Trim
    Dim cc1 As New MailAddress(cc1.Text)
    Dim cc2 As New MailAddress(cc2.Text)
    msg.CC.Add(cc1)
    msg.CC.Add(cc2)

    Dim client As New SmtpClient()

    Try
        client.Send(msg)
        ToolStripStatusLabel1.Text = "Message Sent Successfully"
    Catch ex As Exception
        ToolStripStatusLabel1.Text = "Error Sending Mail"
        MessageBox.Show("Error sending mail : " & ex.ToString, "ERROR ::  Try Again", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
        cc1 = Nothing
        cc2 = Nothing
        from = Nothing
        toAdd = Nothing
        msg = Nothing
        client = Nothing
    End Try
    Return
End Sub