Imports System.Net Namespace Network Friend Class ServerSocket Friend Function Recv(buffer As Byte()) As Integer System.IO.Read(buffer) End Function Friend Sub Listen() ' do the listen on a port ' and whatever it is needed ' to listen End Sub End Class Friend Class DNS Friend Function GetHostByName(addr As String) As String ' this method returns the host ' when you give an IP Return CalculateHostByName(addr) End Function Friend Sub ConnectTo(addr As String) ' connect to a client Net.ConnectTo(addr) End Sub Friend Function Send(buffer As Byte()) As Integer System.IO.Write(buffer) End Function End Class End Namespace