Hi EveryBody:

How can I add Sub or Function or property to be a member of TextBox ?

For example TextBox1.Text , text is a property in Textbox1 How Can I add the following sub to be a member of textbox1:

Public Sub SaveHtml(ByVal stream As Stream)
If stream Is Nothing Then
Throw New ArgumentNullException("SaveHtml : Must specify a non-null stream to which to save")
End If
Dim content As String = SaveHtml()
Dim writer As New StreamWriter(stream, Encoding.UTF8)
writer.Write(content)
writer.Flush()
End Sub 'SaveHtml

Any Help or redirection will be appreciated

regard's

Husam