Multithreaded Socket class in .Net Framework vb.net or c#

Option Explicit On
Imports System.Net.Sockets
Imports System.Net
Imports System.Threading
Imports System.Text
Public Class clsListener
    Inherits System.ComponentModel.Component
#Region "Delegates & Events"
    Delegate Sub DataReceived(ByVal Data As Byte())
    Delegate Sub sckErr(ByVal Description As String)
    Public Event DataArrival As DataReceived
    Public Event Sock_Error As sckErr
#End Region
#Region "Private Fields"
    Private RemotePort As Integer = 3520
    Private socketThread As Thread
#End Region
#Region "Methods"
    Public Sub New()
        Try
            socketThread = New Thread(AddressOf ReceiveData)
            socketThread.Start()
        Catch e As Exception
            socketThread.Abort()
        Finally
            socketThread = Nothing
        End Try
 
    End Sub
    Private Sub clsListener_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        Try
            Me.socketThread.Abort()
        Catch ex As Exception
        Finally
            Me.socketThread = Nothing
        End Try
 
    End Sub
    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
    Public Sub ReceiveData()
        Do
            Dim localHostEntry As IPHostEntry
            Dim soUdp As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
            Try
                Try
                    localHostEntry = Dns.GetHostEntry(Dns.GetHostName())
                Catch ex As Exception
                    Throw ex
                End Try
                Dim localIpEndPoint As New IPEndPoint(localHostEntry.AddressList(0), RemotePort)
                soUdp.Bind(localIpEndPoint)
                While True
                    Dim received As Byte() = New Byte(255) {}
                    Dim tmpIpEndPoint As New IPEndPoint(localHostEntry.AddressList(0), RemotePort)
                    Dim remoteEP As EndPoint = (tmpIpEndPoint)
                    Dim bytesReceived As Integer = soUdp.ReceiveFrom(received, remoteEP)
                    RaiseEvent DataArrival(received)
                End While
            Catch se As SocketException
                RaiseEvent Sock_Error(se.Message)
            Finally
                soUdp.Close()
            End Try
        Loop
    End Sub
#End Region
End Class
 
 
 
Public Class Form1
    Private WithEvents Tester As New clsListener 
    Private Sub Tester_DataArrival(ByVal Data() As Byte) Handles Tester.DataArrival
        Dim str As String = System.Text.Encoding.ASCII.GetString(Data)
        Me.ListBox1.Items.Add(str)
    End Sub
End Class