¿Cómo enviar el contenido que se puede mostrar en el cuadro de texto en vb al cuadro de lista?

El siguiente programa se implementa: después de escribir el contenido en el cuadro de texto y presionar la tecla Enter (Enter), el contenido del cuadro de texto se envía al cuadro de lista.

1) Organizar un control TextBox y un control ListBox en el formulario

2) ¿Opción de código?Explícito

Privado?Sub?Form_Load()

'?Borrar Texto1 y Lista1 cuando comienza el formulario

Text1.Text?=?""

List1.Clear

¿Fin? Sub

Privado?Sub?Text1_KeyPress(KeyAscii?As?Integer)

'?Si se presiona la tecla Enter (el código Ascii de la tecla Enter es 13)

If?KeyAscii?=?13?Then

Dim?s?As?String

'?Extraiga el contenido escrito en Texto1 y filtre los espacios antes y después

s?=?Trim(Text1.Text)

Si?s?lt;gt;?"" Entonces

'?Si la entrada en Texto1 es no está vacío, luego agréguelo a Lista1

List1.AddItem?s

'?Después de agregar, borre Texto1

Text1.Text?=?""< / p>

Fin?Si

Fin?Si

Fin?Sub

3) Efecto de ejecución

Cuando el formulario inicia

Escriba Texto1 y presione Entrar, el contenido de entrada se mostrará en Lista1.