Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
    Dim objEmailMessage As System.Web.Mail.MailMessage
    Dim objSMTPServer As System.Web.Mail.SmtpMail
    objSMTPServer.SmtpServer = "smtp.myISP.com"
 
    objEmailMessage = New System.Web.Mail.MailMessage
    With objEmailMessage
        .To = "destinationemail@address.com"
        .From = txtFrom.Text
        .Subject = "Great Job!"
        .Body = "Want all my money?"
    End With
 
    objSMTPServer.Send(objEmailMessage)
    Catch exc as exception
        Response.Write(exc.InnerException.InnerException.Message)
    End Try
End Sub

RichTextBox1.Focus()   ' Make sure the RichTextBox has the focus so ScrollToCaret works.
RichTextBox1.Append("some text to append.")
RichTextBox1.ScrollToCaret()

'  Form2 code
#Region " Windows Form Desginer generated code "
    Public Sub New()
        MyBase.New()
    End Sub
#End Region
 
    Private x As Integer = 0
 
    Public Sub New(ByVal value As Integer)
        m_x = value
    End Sub