Ayuda COn MI Programa

[BlackZeroX]

Veamos si te sirve el siguiente code como orientación:

Código (vb) [Seleccionar] Expandir

Dim s_word, s_find As String
Private Sub Command1_Click()
    s_word = InputBox("Cadena a buscar:")
    ' Find string in text.
    s_find = InStr(Text1.Text, s_word)
    If s_find Then
        Text1.SetFocus
        Text1.SelStart = s_find - 1
        Text1.SelLength = Len(s_word)
    Else
        MsgBox "No se encuentra la cadenas"
    End If
End Sub

Private Sub Form_Load()
Text1.Text = "Los gatos tienen cuatro patas"
Command1.Caption = "Buscar"
End Sub

Gracias POR Ese Codigo

PEro ME DIcuenta que lo que hace ese COdigo es Buscar un texto y seleccionarlo

En SI LO que yo queria Es Como esta en la IMG

Si lo pudieras encontrar te lo agradeceria =)

En otras palabras buscas un programador para que te lo programe?

Dulces Lunas

[h0oke]

En otras palabras buscas un programador para que te lo programe?

Dulces Lunas

Creo que ya es suficiente ayuda... Hazlo por ti...