Inherits TextBox Export '------------------------estas deben estar para que se vea en tiempo real en el ide Public Const _IsControl As Boolean = True Public Const _DefaultSize As String = "6,6" Public Const _Family As String = "*" Public Const _Group As String = "Special" Public Const _DefaultEvent As String = "Click" Public Const _DrawWith As String = "TextBox" Public Const _DefaultArrangement As String = "V" ' Arrange.Vertical '****************************************************************************************************** 'esta de las properti las saque porqu no tengo gana de declarar todas las propiedades 'ya que si pones una nueva al parecer no las suma a las heredas sino que solo te muestra 'la que pones ahi, puede que lo este haciendo mal 'NOTE: Seguir viendo esto. ' 'Public Const _Properties As String = "X{Position},Y{Position}" Public Sub _new() '------------------------Se mira Dim oChusma As Observer oChusma = New Observer(Me) As "TextBox" End Sub Public Sub TextBox_Change() '------------------------puede que sea Debug "algo esta sucediendo" End