Imports System.Net.Sockets
Imports System.Net
Imports System.Text
Module module1
    Sub main()
        Dim bytes(1024) As Byte
        Dim countBytesFromClient As Int32
        Dim dataFromClient As String
        Dim clientSocket As String
        --> server As New Socket( _
          AddressFamily.InterNetwork.sockettype.stream.protocoltype.ip) <--
        Dim ipHostInfo As IPHostEntry = Dns.Resolve(Dns.GetHostName())
        Dim ipAddress As IPAddress = ipHostInfo.AddressList(0)
        Dim localEP As New IPEndPoint(ipAddress, 930)
 
    End Sub
End Module