UN ULTIMO AJUSTE Y NUESTRO PROGRAMA FUNCIONANADO

Un último ajuste

Se nos ocurre que sería interesante que cuando el usuario se posicione en una de las líneas del ListBox pudiese visualizar el contenido completo de la línea, ya que pueden aparecer cortadas si son muy largas. Lo vamos a hacer de la siguiente forma: cuando el usuario hace doble click en una entrada, el contenido de la línea lo mostraremos en un cuadro de diálogo:

PUBLIC SUB ListBox1_DblClick()
   IF ListBox1.Index >= 0 THEN
       message.Info(ListBox1.Current.Text)
   END IF
END

Nuestro programa funcionando