Imports System.Threading 'Es una IMPORT declarala fuera de una clase
 
    Private UDPThd As Thread 'Maneja el LeerSocket como un Thread Aparte
 
    Private HLIpEndPoint As IPEndPoint 'Para manejo de IP
 
    Private RemoteIpEndPoint As New IPEndPoint(IP, Puerto) 'Reemplaza IP x la IP que envia informacion y el Puerto que envia informacion (es para recibir)
 
    'Para llamar a la funcion de que quede cuidando al puerto:
     UDPThd = New Thread(AddressOf LeerSocket)
     UDPThd.Start()
 
    Private Sub LeerSocket() 'Esto es para leer cunado llega informacion sin depender de un loop (la informacion se guarda en Buffer
        Dim Buffer As Byte()
        'Loop para recibir la informacion
        While True
            'Obtenemos la informacion enviada
            Buffer = Puertos(X).Receive(RemoteIpEndPoint) 'Reemplaza X por el numero de socket
            'Salimos del While
            Exit While
        End While
    End Sub

Sancho.Mazorka