Sub tcpconnet()
        Dim ipandport As IPEndPoint
        scsend = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim port As Integer = 3535
        Dim ip As IPAddress
        Try
            Try
                ip = System.Net.Dns.GetHostEntry(Dns.GetHostName).AddressList.GetValue(1) '获取本机IP
            Catch
                ip = System.Net.Dns.GetHostEntry(Dns.GetHostName).AddressList.GetValue(0)
            End Try

            ipandport = New IPEndPoint(ip, port)
            scsend.Bind(ipandport)
            scsend.Listen(10)
        Catch
            MsgBox("TCP出错了")
        End Try
    End Sub

    Sub udpconnet()

        Dim recepoint As New IPEndPoint(IPAddress.Any, 0)
        clientas = New UdpClient(3535)
        While True
            Dim data As Byte() = clientas.Receive(recepoint)
            newdata = CLng(System.Text.Encoding.ASCII.GetString(data))
        End While
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     Dim readthread As New Thread(New ThreadStart(AddressOf tcpconnet))
        readthread.Start()
        Form2.Show()
        readthread = New Thread(New ThreadStart(AddressOf udpconnet))
        readthread.Start()
        Me.Visible = False
    End Sub