Dim instance As StdFunc = New StdFunc()
Dim value As Integer

instance.WaitMilliSec(value)

'StdFuncクラス WaitMilliSecメソッド

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("2秒停止します")
		stdf.WaitMilliSec(2000)
		If std.StopFlag Then
			MessageBox.Show("中断しました")
		Else
			MessageBox.Show("2秒経過しました")
		End If
	End Sub

End Class