テキストエディターで改行を行なうと、改行の前に「↓」が入るものが有る。
これは、
C# は　textBox1_TextChanged
VB.NETはTextBox1_TextChanged
イベント内に改行の前に「↓」を入れる処理を書けば良いだけであるが、今回は少しひねって、 TextBoxクラスを継承した新しいTextBoxクラスを作成し、それに文末が改行で有ったらイベントで 知らせるコードを追加してみよう。
先ず開発環境を起動して、空のフォームを作り、プルダウンメニューの「プロジェクト」−＞ 「クラスの追加」で新しいクラスを追加する。
そして同じ名前空間で、TextBoxクラスから継承された新しいTextBoxクラスを作る。

public class MyTextBox : System.Windows.Forms.TextBox  

Public Class MyTextBox : Inherits System.Windows.Forms.TextBox  

public class MyTextBox :  System.Windows.Forms.TextBox

  {

      //元々TextBoxの持つOnTextChangedを上書きする

      protected override void OnTextChanged(EventArgs e)

      {

          //Textの最後が改行でしかも↓が無かったらイベントを発生させる

          if (base.Text.EndsWith("\r\n") && !base.Text.EndsWith("↓\r\n"))

          {

               //A    どこを呼び出したら良いのか 

          }

      }

  }

public class MyTextBox : TextBox

{

    //デリゲートの宣言

    public delegate void dlgNewLine(object sender, EventArgs e);



    public dlgNewLine TxtNewLine; 

    protected override void OnTextChanged(EventArgs e)

    {

        //Textの最後が改行でしかも↓が無かったらイベントを発生させる

        if (base.Text.EndsWith("\r\n") && !base.Text.EndsWith("↓\r\n"))

             TextNewline(this, e);

    }

}

public event dlgNewLine txtNewline;

using System;

using System.Collections.Generic;

using System.Text;



namespace dele2

{

    //TextBoxを継承した新しいTextBoxクラス

    public class MyTextBox :System.Windows.Forms.TextBox  

    {

        //デリゲートの宣言

        public delegate void dlgNewLine(object sender, EventArgs e);



        //デリゲートでイベントを宣言する

        public event dlgNewLine TextNewline;



        //元々TextBoxの持つOnTextChangedを上書きする

        protected override void OnTextChanged(EventArgs e)

        {

            //本来のイベントを呼び出しておく

            base.OnTextChanged(e);



            //Textの最後が改行でしかも↓が無かったらイベントを発生させる

            if (base.Text.EndsWith("\r\n") && !base.Text.EndsWith("↓\r\n"))

            {

                //インスタンスが有る場合のみ

               if (TextNewline != null)

                    TextNewline(this, e);

            }

        }

    }

}

Public Class MyTextBox : Inherits System.Windows.Forms.TextBox

    'デリゲートの宣言

    Public Delegate Sub dlgNewLine(ByVal sender As Object, ByVal e As EventArgs)



    'デリゲートでイベントを宣言する

    Public Event TextNewline As dlgNewLine



    '元々TextBoxの持つOnTextChangedを上書きする

    Protected Overrides Sub OnTextChanged(ByVal e As EventArgs)



        '本来のイベントを呼び出しておく

        MyBase.OnTextChanged(e)



        'Textの最後が改行でしかも↓が無かったらイベントを発生させる

        If MyBase.Text.EndsWith(Environment.NewLine) AndAlso _

                    Not MyBase.Text.EndsWith("↓" + Environment.NewLine) Then

            RaiseEvent TextNewline(Me, e)

        End If

    End Sub

End Class

//本来のイベントを呼び出しておく

base.OnTextChanged(e);

'本来のイベントを呼び出しておく

MyBase.OnTextChanged(e)

public partial class Form1 : Form

{

    MyTextBox mt = new MyTextBox();

    public Form1()

    {

        InitializeComponent();

        SuspendLayout(); 

        mt.Size = new Size(200, 100);　　 //大きさ

        mt.Location = new Point(20, 10);　//位置

        mt.Multiline =true;　             //複数行の許可

        mt.Parent = this; 　　　　　　　　//これが無いと表示されない

        ResumeLayout();

        //イベントの登録

        mt.TextNewline += myTextBox1_NewLine;   

    }

    

    //イベントから呼び出されるプロシジャー

    private void myTextBox1_NewLine(object sender, EventArgs e)

    {

        string txt = mt.Text;//テキスト

        

        //↓を挿入

        string newtext = txt.Substring(0, txt.Length - 2) + "↓" + "\r\n";

        mt.Text = newtext;

        

        //キャレットを最終文字に

        mt.SelectionStart = mt.Text.Length;         

    }

}

Public Class Form1

    Public Form1()

    Dim mt As MyTextBox = New MyTextBox()



    Private Sub Form1_Load(ByVal sender As System.Object,  _

     ByVal e As System.EventArgs) Handles MyBase.Load

        SuspendLayout()

        mt.Size = New Size(200, 100)    '大きさ

        mt.Location = New Point(20, 10) '位置

        mt.Multiline = True             '複数行の許可

        mt.Parent = Me                  'これが無いと表示されない

        ResumeLayout()



        'イベントの登録

        AddHandler mt.TextNewline, AddressOf myTextBox1_NewLine

    End Sub



    'イベントから呼び出されるプロシジャー

    Private Sub myTextBox1_NewLine(ByVal sender As Object, ByVal e As EventArgs)



        Dim txt As String = mt.Text 'テキスト



        '↓を挿入

        Dim newtext As String = txt.Substring(0, txt.Length - 2) + "↓"  _

       + Environment.NewLine

        mt.Text = newtext



        'キャレットを最終文字に

        mt.SelectionStart = mt.Text.Length

    End Sub

End Class

//インスタンスが有る場合のみ

if (TextNewline != null)

    TextNewline(this, e);

//デリゲートでイベントを宣言する

public  dlgNewLine TextNewline;

mt.TextNewline += myTextBox1_NewLine;

AddHandler mt.TextNewline, AddressOf myTextBox1_NewLine

上記C#コードのダウンロード
上記VB2005のコードのダウンロード