Problème Listview

Bonsoir, oui bien sur voici le code ( je suis débutant le code est donc pas très adapté car j'aurrais peut être pu utiliser des boucles )

Imports System.Net
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Dim listener As TcpListener
    Dim client As TcpClient
    Dim stream As NetworkStream
    Dim data As Byte()
    Dim message As String = ""

    Private Sub RAT_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        listener = New TcpListener(IPAddress.Any, 8080)
        listener.Start()
        Dim t As New Threading.Thread(AddressOf AcceptConnections)
        t.Start()
    End Sub

    Private Sub AcceptConnections()
        Try
            While True
                client = listener.AcceptTcpClient()
                stream = client.GetStream()
                data = New Byte(1024) {}
                Dim bytesRead As Integer = 0

                Do
                    bytesRead = stream.Read(data, 0, data.Length)
                    Dim receivedData As String = Encoding.ASCII.GetString(data, 0, bytesRead)
                    message = receivedData
                Loop While bytesRead > 0
            End While
        Catch ex As Exception
            ' Gère les exceptions ici
        End Try

        Dim parts() As String = message.Split(New String() {"||"}, StringSplitOptions.RemoveEmptyEntries)
        Dim t1 As String = ""
        Dim t2 As String = ""
        Dim t3 As String = ""
        Dim t4 As String = ""
        Dim t5 As String = ""
        Dim t6 As String = ""
        Dim t7 As String = ""
        Dim t8 As String = ""
        Dim t9 As String = ""

        If parts.Length >= 9 Then
            t1 = parts(0).Trim()
            t2 = parts(1).Trim()
            t3 = parts(2).Trim()
            t4 = parts(3).Trim()
            t5 = parts(4).Trim()
            t6 = parts(5).Trim()
            t7 = parts(6).Trim()
            t8 = parts(7).Trim()
            t9 = parts(8).Trim()
        End If

        Dim Element As New ListViewItem
        Element.Text = t1
        Element.SubItems.Add(t2)
        Element.SubItems.Add(t3)
        Element.SubItems.Add(t4)
        Element.SubItems.Add(t5)
        Element.SubItems.Add(t6)
        Element.SubItems.Add(t7)
        Element.SubItems.Add(t8)
        Element.SubItems.Add(t9)
        ListView1.Items.Add(Element)
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If Not client Is Nothing Then
            client.Close()
        End If
        If Not listener Is Nothing Then
            listener.Stop()
        End If
    End Sub
End Class