Visual Basic - Crear aplicacion VB 6 simple.

'PEGA ESTO DENTRO DE UN FORMULARIO VACIO

Dim WithEvents texto As TextBox

Dim rt As TextBox

Private Type cosa

 palabra As String

 muestra() As String

End Type

Dim pa() As cosa

Private Sub Form_Load()

Set texto = Me.Controls.Add("VB.TextBox", "texto")

Set rt = Me.Controls.Add("VB.TextBox", "rt")

texto.Move 50, 50, 2000

rt.Move 50, 50 + texto.Height + 100, 2000, 5000

texto.Visible = True

rt.Visible = True

p = InputBox("Escribe la cantidad de palabras que deseas agregar")

If Val(p) > 0 Then

ReDim Preserve pa(p)

i = 0

 Do

xxx:

   q = InputBox("Escribe la palabra numero " & _

   i + 1 & " que puedes escribir el el textbox")

   If Trim(q) = "" Then

    MsgBox "Debe escribir una palabra"

    GoTo xxx:

   Else

     pa(i).palabra = q

     z = 0

yyy:

     q = InputBox("Escriba la(s) palabras asociadad a " & _

     pa(i).palabra & " que se mostran " & _

     "en el richtextbox,  para detenerce no esriba nada")

     If Trim(q) <> "" Then

       ReDim Preserve pa(i).muestra(z)

       pa(i).muestra(z) = q

       z = z + 1

      GoTo yyy

     End If

   End If

   i = i + 1

 Loop Until i >= Val(p)

End If

End Sub

Private Sub Texto_KeyUp(KeyCode As Integer, Shift As Integer)

rt.Text = ""

For i = 0 To UBound(pa) - 1

 If texto.Text = pa(i).palabra Then

  For z = 0 To UBound(pa(i).muestra)

   rt.Text = rt.Text & pa(i).muestra(z) & Chr(13)

  Next z

  Exit For

 End If

Next i

End Sub