methods connect through objects

Public Class MyNewTextBox
    Inherits TextBox

    Dim TextBox_User As New TextBox
    Dim TextBox_Password As New TextBox
    Public Sub New(Eindruecke As TextBox, DruckStress As TextBox)
        Me.TextBox_User = Eindruecke
        Me.TextBox_Password = DruckStress
    End Sub
    Public Property TextBox_Test As TextBox
        Set(value As TextBox)
            TextBox_User = value
        End Set
        Get
            Return TextBox_User
        End Get
    End Property
    Public Property My_TextBox_Test As TextBox
        Set(value As TextBox)
            TextBox_Password = value
        End Set
        Get
            Return TextBox_Password
        End Get
    End Property
End Class