Inherits TextBox Export Public Sub _new() '------------------------Se mira Dim oChusma As Observer oChusma = New Observer(Me) As "TextBox" End Sub Public Sub TextBox_Change() - message("algo esta sucediendo","nose") End