DataField Problems

In need to implement the Datafield Property,.into my usercontrol.
Some codes...

I only have this for the moment...


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

Public Property Set DataSource(ByVal New_Value As DataSource)
Set DataCombo.DataSource = New_Value
PropertyChanged "DataSource"
End Property

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set DataSource = PropBag.ReadProperty("DataSource", Nothing)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DataSource", DataSource, Nothing)
End Sub

Private Sub UserControl_Resize()
DataCombo.Left = 0: DataCombo.Top = 0
DataCombo.Width = UserControl.Width
UserControl.Height = DataCombo.Height
End Sub