Public Property Get Text() As String
  Text = Text1.Text
End Sub
 
Public Property Let Text(ByVal sText As String)
  Text1.Text = sText
  PropertyChanged "Text"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de