Advanced Databinding with Reflection

[optictygre]

Databinding with reflection

I have a class, SmartString:

Public Class SmartString

...Psuedo code follows

Public Property Value() as String
Return Me.Text
End Property

Public Property IsNotNothing() as Boolean
Return m_IsNotNothing
End Property

End Class

Then, I have a Main Class:

Public Class MyClass

...Psuedo code follows

Public Property SPECIAL_TEXT() as SmartString
Get
Return m_SpecialText
End Get
Set(ByVal Value as SmartString)
m_SpecialText = Value
End Set
End Property
End Class

Then, on another form, I'm using reflection to dynamically create
labels and textboxes to display.

Dim obj as Object = Activator.Creat eInstance(MyCla ss)
Dim pInfoArray() as PropertyInfo

For Each pInfo as PropertyInfo in pInfoArray

Dim NewTextBox as TextBox
NewTextBox.Name = pInfo.Name
NewTextBox.Data Bindings.Add("T ext", obj, pInfo.Name & ".Value")
NewTextBox.Data Bindings.Add("E nabled", obj, pInfo.Name &
".IsNotNothing" )
Me.Controls.Add (NewTextBox)

Next

The above code throws an error. What I'm trying to do is Bind the
TextBox's "Text" field to the Value field of the SmartDate Property
(SPECIAL_TEXT), and the TextBox's "Enabled" field to the IsNotNothing
field of the SmartDate Property (SPECIAL_TEXT).

If SPECIAL_TEXT was just of type "String", then I could add the
databinding simply by calling NewTextBox.Data Bindings.Add("T ext", obj,
pInfo.Name).

How can I bind when SPECIAL_TEXT is of the type SmartString?

Thanks for any help anyone can provide.

-Jason