请教一个编译用户控件的问题

[wangchong888]

我在做一个自已一直想实现的TextBox控件,可是却有以下问题不能解决,请予帮助
用户控件的相关属性中,不可以设置控件的DataField属性及DataSource属性.会出现"用户定义类型未定义"提示
所以无法在引用自编控件时设置这两个属性.出错代码在以下内容:

'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,DataFormat
Public Property Get DataFormat() As IStdDataFormatDisp
Set DataFormat = Text1.DataFormat
End Property

Public Property Set DataFormat(ByVal New_DataFormat As IStdDataFormatDisp)
Set Text1.DataFormat = New_DataFormat
PropertyChanged "DataFormat"
End Property

[wangchong888]

出错代码在以下内容:

'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,DataFormat
Public Property Get DataFormat() As IStdDataFormatDisp
Set DataFormat = Text1.DataFormat
End Property

Public Property Set DataFormat(ByVal New_DataFormat As IStdDataFormatDisp)
Set Text1.DataFormat = New_DataFormat
PropertyChanged "DataFormat"
End Property
'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,DataSource
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