Dim owner As Object '親となるフォームオブジェクト Dim instance As TextLabel = New TextLabel(owner)
'TextLabelクラス TextLabelコンストラクタ Public Class AddIn Private std As Std Private tl As TextLabel Public Sub New() std = New Std() tl = New TextLabel(std.Owner) End Sub End Class