Dim instance As WebFtp = New WebFtp()

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

Public Class AddIn

	Private wf As WebFtp

	Public Sub New()
		wf = New WebFtp()
	End Sub

End Class