Si lo de Inherits Export lo se lo que decía es que no creía que apareciera, peeeero hice las pruebas y acá traigo los resultados. si se puede pero deben colocarse varias constantes necesarias mi prueba para que sea mas o menos viables usarlo así como tu dices seria así...
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
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