estoy programando un cliente de chat pero a la hora de conectar y recibir los mensajes en el DataArrival solo me sale el ultimo mensaje enviado yo uso esto
If InStr(Ra, "<div class=" & Chr(34) & "color" & Chr(34) & ">") <> 0 Then
TmIni = InStr(Ra, "<div class=" & Chr(34) & "color" & Chr(34) & ">") + 19
TmFin = InStr(TmIni, Ra, "</span><br />") - TmIni
Mensajes = Mid(Ra, TmIni, TmFin)
Call DHTMLEdit1.DOM.parentWindow.execScript("document.writeln('" & Limpiar(Decode_UTF8(Mensajes)) & "</font></span><br>" & "');", "javascript"): Call DHTMLEdit1.DOM.parentWindow.Scroll(0, 1000000)
end if
esto es obvio que solo me va a mostrar un solo mensaje pero como hago para que me muestre los otros? ya intente con 'for i = 1 to 10' pero me sale el mismo mensaje lo que no se es como hacer para que se siga y que recoja el siguiente mensaje y no me salga el mismo gracias.