vb Ingrese kyo en text1 como se muestra. Encuéntralo en la lista. Mostrar todo en texto2. El siguiente mensaje de error no existe para

La dirección de asignación se invierte. La asignación es asignar el valor de la expresión de la derecha a la variable de la izquierda. También hay un for k que debe cambiarse. text2 debe incluir todo el contenido en el elemento de la lista text1, luego también debe cambiarlo, como se muestra a continuación

Private Sub Command1_Click()

Dim c As String, d As Cadena, x como cadena

x= Texto1.Texto, x=Text2.Text, x=Text3.Text, x=Text4.Text.Text

Para i = 0 a 3

c=List1.List(i )

Para k = 1 A len(c)

d=Mid(c, k, 1)

Si d = x Entonces Text2.Text = Text2.Text amp; vbcrlf

Siguiente k

Siguiente i

End Sub;