Dim instance As Std = New Std()
'Stdクラス Stdコンストラクタ Public Class AddIn Private std As Std Public Sub New() std = New Std() End Sub End Class