アプリケーションの終了条件を定義する

Public Class CalculatingApplication

    Inherits System.Windows.Forms.ApplicationContext

    Public Sub New()

        MyBase.New()

    End Sub

    Public Sub Start()

        ' 計算を行うスレッドを起動する
        Dim thread As New System.Threading.Thread(AddressOf Calculate)

        thread.Start()

    End Sub

    Private Sub Calculate()

        Console.WriteLine("計算を開始します。")

        Dim count As Integer = 0

        Do

            count += 1

            System.Threading.Thread.Sleep(50)

        Loop Until (100 < count)

        ' スレッドのメッセージループを終了する
        MyClass.ExitThread()

        Console.WriteLine("計算が終了しました。")

    End Sub

    Protected Overrides Sub ExitThreadCore()

        Console.WriteLine("スレッドのメッセージループを終了します。")

        MyBase.ExitThreadCore()

    End Sub

End Class

Public Class MainClass

    Public Shared Sub Main()

        Dim app As New CalculatingApplication

        ' 計算を開始する
        app.Start()

        Console.WriteLine("現在のスレッドでメッセージループが開始されます。")

        ' CalculatingApplicationクラスのインスタンスを使用してアプリケーションを起動する
        System.Windows.Forms.Application.Run(app)

        Console.WriteLine("スレッドのメッセージループは終了しました。")

    End Sub

End Class

public class CalculatingApplication : System.Windows.Forms.ApplicationContext
{
    public CalculatingApplication() : base() {}

    public void Start()
    {
        // 計算を行うスレッドを起動する
        System.Threading.Thread thread = new System.Threading.Thread( new System.Threading.ThreadStart( Calculate ) );

        thread.Start();
    }

    private void Calculate()
    {
        Console.WriteLine( "計算を開始します。" );

        int count = 0;

        do
        {
            count += 1;

            System.Threading.Thread.Sleep( 50 );

        } while ( !( 100 < count ) );

        // スレッドのメッセージループを終了する
        this.ExitThread();

        Console.WriteLine( "計算が終了しました。" );
    }

    protected override void ExitThreadCore()
    {
        Console.WriteLine( "スレッドのメッセージループを終了します。" );

        base.ExitThreadCore();
    }
}

public class MainClass
{
    public static void Main()
    {
        CalculatingApplication app = new CalculatingApplication();

        // 計算を開始する
        app.Start();

        Console.WriteLine( "現在のスレッドでメッセージループが開始されます。" );

        // CalculatingApplicationクラスのインスタンスを使用してアプリケーションを起動する
        System.Windows.Forms.Application.Run( app );

        Console.WriteLine( "スレッドのメッセージループは終了しました。" );
    }
}