Try
            Dim stream As NetworkStream
 
            Dim data As [Byte]() = Encoding.ASCII.GetBytes(Me.TextBox1.Text)
 
            m_Port = 6000
 
            m_Client = New TcpClient("OE03721", m_Port)  '
 
            stream = m_Client.GetStream()
 
            stream.Write(data, 0, data.Length)
 
            m_Client.Close()
 
        Catch ex As SocketException
            MsgBox("SocketException" & vbCrLf & ex.Message)
        Catch ex As Exception
            MsgBox("Exception" & vbCrLf & ex.Message)
        End Try
    End Sub

hallo ich lerne gerade visual donet und m?chte gern an den Foren teilnehmen