Hola, tengo un RichTexBox y tengo escrito en el esto como hago para reemplazar
esto: 8) por un icono como este 

Private Sub Command1_Click()
COMO SE HACE??
End Sub

 QUE QUEDE CLARO QUE NO-IP.BIZ es para servidores locales, es decir para tapar la IP de nuestro server. Algo asi como una redirección a nuestro ordenador.

pueses enviar todo lo que quieras mediante el control Winsock

Crea el proyecto de un chat multiconexion y public el link, con el proyecto puedo analizar el codigo mejor y ver su funcionamiento.
Recomiento que lo publiques en
http://sendspace.com

tienes que ver el modelo del router y su respectiva marca y depsues de hay empezar a Googlear que para eso est en internet. 

He descargado sources de chats peor ningunos son multiconexion, es decir que el server sea unico pero que los mensajes lleguen a todos los clientes, ayudenme por favor.

si lo que quieres es enviar un msgbox a la victima desde un programa cliente en visual basic  solo debes de poner esto
Dim emisor as string
mensaje = Text1.text
Winsock1.SendData emisor
------
en el server debes de poner esto
Dim receptor as string
Winsock1.GetData receptor
--
En el evento de un timer poner esto:
if receptor = "" then
else
msgbox "" & receptor

Adios,d esde Republica dominicana.