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