Imports System.Net Public Class Client Public Endpoint As IPEndPoint Public Login_date As Date Sub New(ByVal M_endpoint As IPEndPoint, ByVal m_data As Date) Login_date = m_data Endpoint = M_endpoint End Sub End Class