Dim instance As Std = New Std()
Dim returnValue As Boolean

returnValue = instance.StopFlag

'Stdクラス プロパティ StopFlag

Imports System.Windows.Forms

Public Class AddIn

	Private std As Std

	Public Sub New()
		std = New Std()
	End Sub

	Public Sub AddIn_Start()
		Dim num As Integer = 0
		Do While True
			If std.StopFlag Then Exit Do
			MessageBox.Show(num.ToString())
			System.Threading.Thread.Sleep(2000)
			Application.DoEvents
			num += 1
		Loop
		MessageBox.Show("停止しました")
	End Sub

End Class

'Stdクラス プロパティ StopFlag

Imports System.Windows.Forms

Public Class AddIn

	Private std As Std
	Private stdf As StdFunc

	Public Sub New()
		std = New Std()
		stdf = New StdFunc()
	End Sub

	Public Sub AddIn_Start()
		Dim num As Integer = 0
		Do While True
			If std.StopFlag Then Exit Do
			MessageBox.Show(num.ToString())
			stdf.WaitMilliSec(1000)
			num += 1
		Loop
		MessageBox.Show("停止しました")
	End Sub

End Class