Chat en formulario

Cliente, abajo de:

Código:

Select Case Left$(sData, 4)

Ponen

Código:

Case "~~~~"
Rdata = Right$(Rdata, Len(Rdata) - 4)
Formsito.Text1 = Formsito.Text1 & Rdata & vbNewLine
Formsito.Text1.Refresh
Exit Sub

Cliente (Creamos un boton o lo que sea para apretar y que salga el form, en el frmmain)

Código:

private sub command1_click()
formsito.show
end sub

En el form;

Citación :

Un textbox que se llama "text1" (Que aparecen lo que dicen los demas), con la propiedad "LOCKED = true y MULTIlinE = true.
Otro textbox que se llama "YoMando" (Para escribirle a los demás)
Un command1 (Enviar)
Un command2 (Cerrar)

Adentro del formulario:

Código:

private sub command1_click()
If YoMando = "" Then Exit Sub
SendData "~GLOBAL" & UserName & "> " & YoMando
YoMando = ""
End sub
private sub command2_click()
me.hide
eND sub

En el

Código:

 
Case "FINOK"

Abajo ponen

Código:

unload formsito

En el

Código:

case "LOGGED"

Ponemos abajo

Código:

formsito.show
formsito.hide 'si le doy .show por primera vez cuando va a escribir, no me muestra lo que escribieron (antes de esa primera vez)

Server en el TCP_HANDLEDATA1 abajo de:

Código:

Select Case UCase$(Left$(rData, 7))

Ponen

Código:

case "~GLOBAL"
call senddata(sendtarget.toall,userindex,0,"~~~~?" & rdata)