[lu_ozzie]

Ok, that's what i did... and it connects properly...
My biggest problem was the dialogue with the tother computer after connecting..
That's what i did:

Sub Connect(IP)
	'ErrorLabel(errConnect)
	WaitCursor(true)
	TextBox2.Text = "Connecting to " & IP
	Dim client
	client.New1
	client.Connect(IP,23)
	stream.New1(client.GetStream,true)
	TextBox2.Text = "Connection established."
	Return
End Sub

I'm trying to read something from the server...I need to write sentences and read replies... Thanks for the quick answer!