Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ListThread As New Thread(New ThreadStart(AddressOf listening))
ListThread.Start()
End Sub
Private Sub listening()
listener.Start()
While True
Dim user As New CLASE(listener.AcceptTcpClient)
End While
End Sub