Nuevo control: «Doble Lista» - Versión para impresión

Bueno, compañeros, gracias a las inestimables enseñanzas del Magister Draconis Venator, @Shordi, me he atrevido a montar mi primer control. Por supuesto, soy yo. No podía hacer uno sencillito, no: empezar por lo fácil es de pobres.
En fin, se trata de un gestor de doble lista, sobre el que se puede crear y eliminar elementos, pasar elementos de una lista a otra, ordenar cada lista según varios criterios y obtener un «Text» utilizable como , por ejemplo, editor en un Tableview. ¿Que para qué vale? Pues... seleccionar instrumentos para adecuar una plantilla de orquesta, banda o cámara; para seleccionar una lista de personajes para un capítulo de una novela de todos los existentes; para gestionar las plantas que se llevan del semillero al huerto; objetos del espacio profundo a observar una noche por un astrónomo... Ahí queda eso.

Aún le quedan flecos como:
¿Cómo narices se levanta un evento «Cambiar» similar al «Change» desde el formulario cada vez que se pulsa un grupo de botones?
¿Y cómo se crea un evento «Enter» similar al de Texbox?
¿Cómo releñes se puede usar una propiedad de la clase en el formulario?
Estas tres preguntas, creo, se contestan probablemente planteando de otra manera el código del control, esto es, llevando a la clase la gestión de algunos elementos del formulario.
En fin, se admiten comentarios, consejos y críticas destructivas.

Código:

Public Sub tobAnadir_Click()  

  Dim sDonde As String      ' Nombre de la lista donde se va a añadir'

  Dim sQue As String        ' Texto del ítem a añadir'

  Dim asPaso As String[]    ' Matriz de cadenas para trabajar'

   If ListaSel = No Then

     asPaso = lsoDos.List

     sDonde = frmDos.Text

     Else

     asPaso = lsoUno.List

     sDonde = frmUno.Text

   Endif

[...]

Código:

'En la declaración '

Property ListaSel As Boolean  

...

...

' y al final del archivo '



Private Function ListaSel_Read() As Boolean



  Return $fdoblelista.listasel



End



Private Sub ListaSel_Write(Value As Boolean)



  $fdoblelista.ListaSel = Value



End

Código:

'En la declaración'

Property listasel As Boolean

Private $listasel As Boolean = False

...

...

'Y más abajo '



Private Function listasel_Read() As Boolean



  Return $listasel



End



Private Sub listasel_Write(Value As Boolean)



  $listasel = Value

  If Value Then

    lsoUno.SetFocus

  Else

    lsoDos.SetFocus

  Endif



End

Código:

> Property TituloUno As String    ' Título o nombre de la primera lista.' <

> Property TituloDos As String    ' Título o nombre de la segunda lista.' <

  Property ListaUno As String[]  ' Contenido de la primera lista.'

  Property ListaDos As String[]  ' Contenido de la segunda lista.'

  Property ListaSel As Boolean    ' <p><b>False:</b> por defecto, las acciones se realizan sobre la segunda lista. <p><b>True</b>: las acciones se realizan sobre la primera lista.<p>Estas acciones son <b>«Añadir»</b> o <b>«Eliminar»</b> elementos y también activar el contenido de la propiedad <b>«Text»</b>.'

  Property Text As String        ' Devuelve una sola cadena alfanumérica con el contenido de la lista seleccionada por <b>«ListaSel»</b> como la suma de todos los elementos separados por un salto de línea. Ideal para pasar datos al editor de un Tableview, por ejemplo.'