Visual Basic - AYUDENME POR FAVOR CON UN CONTROL ACTIVEX URGENTE

HOLA AMIGOS:

Nesecito crear un control activex que tiene un cuadro de texto y necesito las propieades del cuadro de texto DataField, DataFormat, DataSource y DataMember. La cuestion está en creo las propiedades y hago referencia a las propiedades del texto asi:

Public Property Get DataField() As String
DataField = Text1.DataField
End Property

Public Property Let DataField(ByVal New_DataField As String)
Text1.DataField() = New_DataField
PropertyChanged "DataField"
End Property

Public Property Get DataMember() As String
DataMember = Text1.DataMember
End Property

Public Property Let DataMember(ByVal New_DataMember As String)
Text1.DataMember() = New_DataMember
PropertyChanged "DataMember"
End Property

Public Property Get DataSource() As DataSource
Set DataSource = Text1.DataSource
End Property

Public Property Set DataSource(ByVal New_DataSource As DataSource)
Set Text1.DataSource = New_DataSource
PropertyChanged "DataSource"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

Text1.DataMember = PropBag.ReadProperty("DataMember", "")
Text1.DataField = PropBag.ReadProperty("DataField", "")
Set DataSource = PropBag.ReadProperty("DataSource", Nothing)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

Call PropBag.WriteProperty("DataMember", Text1.DataMember, "")
Call PropBag.WriteProperty("DataField", Text1.DataField, "")
Call PropBag.WriteProperty(