Dim instance As Std = New Std()

instance.ExitAddIn()

'Stdクラス ExitAddInプロパティ

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()
		MessageBox.Show((3).ToString())
		stdf.WaitMilliSec(1000)
		MessageBox.Show((2).ToString())
		stdf.WaitMilliSec(1000)
		MessageBox.Show((1).ToString())
		stdf.WaitMilliSec(1000)
		std.ExitAddIn()
	End Sub

End Class