se ho capito bene ho provato così:
codice:
Public Sub Connetti()
 tcpclient.Connect("mail.tin.it", 25)
End Sub
poi nell'evento del bottone "Connetti a server"
codice:
dim trdConnect as new system.threading.thread(address of Connetti)
Connetti()
trdConnect.Start

  netstream = tcpclient.GetStream()

        Dim bytes(tcpclient.ReceiveBufferSize()) As Byte
        netstream.Read(bytes, 0, bytes.Length)

        Dim stringar As String
        stringar += System.Text.Encoding.ASCII.GetString(bytes)
        TextBox.Text += stringar & vbCrLf

ecc.. ecc...
è giusto così??