Dim instance As ScreenHwnd

instance = New ScreenHwnd()

'ScreenHwndクラス ScreenHwndコンストラクタ

Public Class AddIn

	Private shw As ScreenHwnd

	Public Sub New()
		shw = New ScreenHwnd()
	End Sub

End Class