Trying to make a chat application, but some issues

[Alpha]

~~

The code I have is:~~

> ~~Private Sub Command1_Click()
> If txtMyTextBox.Text = vbNullString Then
> Call MsgBox("Please type something.")
> Else
> txtChat.Caption = Text1.Text & ": " & txtMyTextBox.Text + txtChat.Caption
> txtMyTextBox.Text = vbNullString
> End If
> End Sub
>
> Private Sub txtChat_GotFocus()
>     On Error Resume Next
>
>     frmMirage.txtMyTextBox.SetFocus
> End Sub~~

~~Didn't do any Winsock yet, but will in a bit. Read the picture for my problem.

EDIT: txtMyTextBox is a text box, txtChat is a label. Command1 is Submit,
Text1 is a text box for your nickname, etc.~~

New question: http://www.touchofdeathforums.com/smf/index.php?topic=43187.msg433659#msg433659

-Alpha

[unnown]

txtChat.Caption = Text1.Text & ": " & txtMyTextBox.Text & vbnewline & txtChat.Caption

i think

[Alpha]

Thanks Unnown, this'll help greatly. I'll tell if it worked.

-Alpha

EDIT: It worked! Thanks!

[Alpha]

Second question.. I'm having a bit of trouble with the text appearing on other people's computers. I do the correct code, I think, but it doesn't work.

Do I have to add a Winsock or something?

By the way somehow it didn't save when I added the code, if I do it again I'll see.

-Alpha

EDIT: I added the Winsock.. Got its settings to connect to my IP and port 1234… now how do I make the server.. sort of a noob at Winsock I know.

[Homicidal Monkey]

server just listens for connections and binds another socket to the incoming. Steal the socket server from TE 1.0 if you get lost.

[Alpha]

Umm.. More in-depth I guess?

I get the binding sockets. But I don't have TE… they took it down from the main page.

-Alpha

[vrage]

I could give you the source of a small chat app I made. Basic winsock, something of an IRC

[Alpha]

Sure, could you PM it to me?

Thanks.

-Alpha