TEXTBOX

Private Sub Command1_Click()

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.Col = 0
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellForeColor = vbBlack
MSFlexGrid1.Text = "Client:"

MSFlexGrid1.Col = 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellForeColor = vbRed
MSFlexGrid1.Text = Text1.Text


End Sub

Private Sub Command2_Click()

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

MSFlexGrid1.Col = 0
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellForeColor = vbBlack
MSFlexGrid1.Text = "Server:"

MSFlexGrid1.Col = 1
MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
MSFlexGrid1.CellForeColor = vbBlue
MSFlexGrid1.Text = Text1.Text

End Sub

Private Function destacandoPalavras(rtb As RichTextBox, procuraString As String, cor As Long) As Integer

Dim posicaoProcura As Long 'Posição do primeiro caractere a encontrar
Dim procuraTamanho As Long 'comprimento da string a encontrar
Dim inicioSelecaoOriginal As Long
Dim tamanhoSelecionadoOriginal As Long
Dim palavrasEncontradas As Integer 'Numero de vezes que a palavra foi encontrada

'Salva o ponto de inserção atual e o tamanho
inicioSelecaoOriginal = rtb.SelStart
tamanhoSelecionadoOriginal = rtb.SelLength

'armazena o tamanho da string a procurar
procuraTamanho = Len(procuraString)

'Tenta encontrar a primeira vez
posicaoProcura = rtb.Find(procuraString, 0, , rtfNoHighlight)

While posicaoProcura > 0
   palavrasEncontradas = palavrasEncontradas + 1

   rtb.SelStart = posicaoProcura
   rtb.SelLength = procuraTamanho
   rtb.SelColor = cor

   'tenta encontrar a proxima
   posicaoProcura = rtb.Find(procuraString, _
   posicaoProcura + procuraTamanho, , rtfNoHighlight)
Wend

'Restaura o ponto de inserção ao tamanho e comprimento original
rtb.SelStart = inicioSelecaoOriginal
rtb.SelLength = tamanhoSelecionadoOriginal

'Retorna o numero de vezes que a palavra foi encontrada
destacandoPalavras = palavrasEncontradas

End Function
Private Sub Command1_Click()

  'chama a função passando o controle RichtextBox , a palavra que desejamos encontrar...
'r é o nome do RICHTEXTBOX..
  Dim valor As Integer
  valor = destacandoPalavras(r, Text1.Text, [txt-color=#ff0000]vbRed[/txt-color])
  valor = destacandoPalavras(r, Text2.Text, [txt-color=#0000ff]vbBlue[/txt-color])

End Sub

Private Sub Form_Load()
r.Text = " Moderador: Olá como vai gente" & vbCrLf
r.Text = r.Text & "Formiguinha: Eu vou bem obrigado" & vbCrLf
r.Text = r.Text & " Moderador: estamos ai né" & vbCrLf
r.Text = r.Text & "Formiguinha: viu como é fácil pintar" & vbCrLf

End Sub