Воспроизведение GIF в параллельном потоке

 Public Tme As New Tm

    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                                  Создание/активация формы Tme                                    '
    '=================================================================================================='
 
    Public Sub Tm_ac()
        Tme = New Tm
 
        Tme.WindowState = FormWindowState.Normal
        Tme.Activate()
 
    End Sub

    Public Sub Pic_Refr2(ByVal TextObj As Object)
        System.Threading.Thread.Sleep(CType(TextObj(1), Integer))
        If Th2_exist Then 'добавить условие
            Tme.Label1.Text = CType(TextObj(0), String)
 
            Tme.ShowDialog()
        End If
 
    End Sub

        If Not Th2_Exist Then
            Th2 = New System.Threading.Thread(AddressOf Pic_Refr2)
 
            Th2.SetApartmentState(System.Threading.ApartmentState.STA)
 
            Th2.Start(New Object() {Mes, Interval}) ' это
 
            Th2_exist = True ' и это
 
 
        End If

                If Th2.IsAlive Then
                    Tme.DialogResult = Windows.Forms.DialogResult.OK'2
 
                    Th2 = Nothing'3
 
                    Th2_exist = False '1
                End If
            End If

Th2.Start(New Object() {Mes, Interval}) ' это
 
Th2_exist = True ' и это

If Th2.IsAlive Then
                    Tme.DialogResult = Windows.Forms.DialogResult.OK'2
 
                    Th2 = Nothing'3
 
                    Th2_exist = False '1
                End If

    Public Sub Pic_Refr2(ByVal TextObj As Object)
        If Th2_exist Then 'добавить условие
            System.Threading.Thread.Sleep(CType(TextObj(1), Integer))
            Tme.Label1.Text = CType(TextObj(0), String)
 
            Tme.ShowDialog()
        End If
 
    End Sub

Th2 = Nothing'3
 
Th2_exist = False '1

    Public Sub Pic_Refr()
        System.Threading.Thread.Sleep(g_interval)
 
        If Th2_exist Then
            Tme.Label1.Text = g_mes
 
            Tme.ShowDialog()
        End If    
 
    End Sub

    Public Sub Shp2(ByVal Vs As Boolean, Optional ByVal Mes As String = "", Optional ByVal Interval As Integer = 600)
        If g_anim Then
 
            '=================================================================================================='
            '                                      Вариант с анимацией                                         '
            '=================================================================================================='
 
            g_interval = Interval
            g_mes = Mes
 
            If Vs Then
                If Not Th2_exist Then
                    Th2 = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf Pic_Refr))
 
                    Th2.Start()
 
                    Th2_exist = True
                End If
            Else
                If Th2_exist Then
                    Th2_exist = False
 
                    Th2.Abort()
                    Th2.Join()
                End If
            End If
        Else

   Public Sub Shp2(ByVal Vs As Boolean, Optional ByVal Mes As String = "", Optional ByVal Interval As Integer = 600)
        If g_anim Then
            'g_interval = Interval
            'g_mes = Mes
 
            If Vs Then
                System.Threading.Thread.Sleep(200)
 
                If Tme.Pic1.InvokeRequired Then
                    Tme.Pic1.Invoke(New System.Threading.ThreadStart(AddressOf Pic_Refr))
                End If
            Else
                Tme.Hide()
            End If

    Public Sub Pic_Refr()
        Tme.Pic1.Refresh()
        Tme.Show()
    End Sub

If Tme.Pic1.InvokeRequired Then
                    Tme.Pic1.Invoke(New System.Threading.ThreadStart(AddressOf Pic_Refr))
                End If

Else
Pic_Refr

    Public Sub Pic_Refr()
        Tme.Pic1.Refresh()
        Tme.Show()
    End Sub