Как вынести работу с SerialPort в отдельный поток?

    Private Sub cb_start_Click(sender As Object, e As EventArgs) Handles cb_start.Click
        If SerialPort1.IsOpen Then
            SerialPort1.RtsEnable = False
            SerialPort1.DtrEnable = False
            SerialPort1.Close()
            Application.DoEvents()
        End If
 
        With SerialPort1
            .PortName = "COM5"
            .BaudRate = 9600
            .DataBits = 8
            .Parity = 0
            .StopBits = IO.Ports.StopBits.One
            .WriteTimeout = 2000
        End With
 
        Try
            SerialPort1.Open()
        Catch ex As Exception
            TextBox1.Text = ex.Message
        End Try
 
        While SerialPort1.IsOpen
            SerialPort1.RtsEnable = True
            Dim data_received As String = SerialPort1.ReadLine
            If TextBox1.Text.Length > 1 Then
                TextBox1.Text = TextBox1.Text & vbCrLf & data_received 'give an alert when data received
            Else
                TextBox1.Text = data_received 'give an alert when data received
            End If
            Application.DoEvents()
        End While
 
    End Sub

        If SerialPort1.IsOpen Then Dim gData As New Thread(AddressOf GetData)
 
    End Sub
 
    Private Function GetData()
        SerialPort1.RtsEnable = True
        While SerialPort1.IsOpen
            Dim data_received As String = SerialPort1.ReadLine
            If TextBox1.Text.Length > 1 Then
                TextBox1.Text = TextBox1.Text & vbCrLf & data_received 'give an alert when data received
            Else
                TextBox1.Text = data_received 'give an alert when data received
            End If
            Application.DoEvents()
        End While
        GetData = Nothing
    End Function

    Dim Поток_1 As New Threading.Thread(AddressOf МояФункция) 
    CheckForIllegalCrossThreadCalls = False
    Поток_1.SetApartmentState(Threading.ApartmentState.STA)
    Поток_1.IsBackground = True
    Поток_1.Start("Новый заголовок формы")

'Объявляем делегат(всегда должени идти в паре с функцией), с такими же аргументами, как у нашей функции.
'Этот делегат поможет моей функции обращаться к контролам из отдельного потока.
Private Delegate Sub Deletage_Моей_Функции(ByVal АГРУМЕНТ As String) 
 
'Моя функция
Private Sub МояФункция(ByVal АГРУМЕНТ As String) 
    If Me.InvokeRequired Then 'Если запрос на запуск функции поступил из другого потока, то пускаем ее через делегат
        Me.Invoke(New Deletage_Моей_Функции(AddressOf МояФункция), АГРУМЕНТ)
    Else 'Если же запрос к функции был из родного потока (из формы), то просто выплоняем наш код
    '...
    '...
        Me.Text = АГРУМЕНТ  'Здесь пишем сам код нашей своей функции
    '...
    '...
    End If
End Sub

Imports System.Threading
Public Class Form1
    Private Delegate Sub d_getText(ByVal t As String)
    Private gData As New Thread(AddressOf GetData)
 
    Private Sub cb_start_Click(sender As Object, e As EventArgs) Handles cb_start.Click
        With SerialPort1
            .PortName = "COM5"
            .BaudRate = 9600
            .DataBits = 8
            .Parity = 0
            .StopBits = IO.Ports.StopBits.One
            .WriteTimeout = 2000
        End With
 
        If SerialPort1.IsOpen Then
            SerialPort1.RtsEnable = False
            SerialPort1.DtrEnable = False
            SerialPort1.Close()
        End If
 
        Try
            SerialPort1.Open()
        Catch ex As Exception
            tb1.Text = ex.Message : cb_start.Enabled = False
        End Try
 
        If SerialPort1.IsOpen Then
            gData.IsBackground = True ' Поток будет работать в фоновом режиме
            gData.Start()
        End If
    End Sub
 
    Private Function GetData()
        SerialPort1.RtsEnable = True
        While SerialPort1.IsOpen
            getText(SerialPort1.ReadLine)
        End While
        GetData = Nothing
    End Function
 
    Private Sub getText(ByVal t As String) ' Процедура делегата
        If tb1.InvokeRequired Then
            Me.Invoke(New d_getText(AddressOf getText), t) ' Если доступ из другого потока, то используем делегат
        Else ' Если запрос из родного (для элемента) потока, то просто записываем текст
            If tb1.Text.Length > 1 Then
                tb1.Text &= vbCrLf & t
            Else
                tb1.Text &= t
            End If
        End If
    End Sub
    Private Sub cb_stop_Click(sender As Object, e As EventArgs) Handles cb_stop.Click
        gData.Abort()
    End Sub

An unhandled exception of type 'System.ObjectDisposedException' occurred in mscorlib.dll
 
Additional information: Дескриптор SafeHandle был закрыт