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

Th2.Abort()

Thread.Abort()
Thread.Join()

Thread.Abort()
Thread.Join()

    '=================================================================================================='
    '                                            PROCEDURE                                             ' 
    '                           Рефреширование формы во вспомогательном потоке                         '
    '=================================================================================================='
 
    Public Sub Pic_Refr2(ByVal TextObj As Object)
        System.Threading.Thread.Sleep(CType(TextObj(1), Integer))
        Tme.Label1.Text = CType(TextObj(0), String)
 
        Tme.ShowDialog()
 
    End Sub

    '=================================================================================================='
    '                                            SUBROUTINE                                            ' 
    '                                 Окно сообщающее о ходе процесса                                  '
    '=================================================================================================='
    Public Sub Shp3(ByVal Vs As Boolean, Optional ByVal Mes As String = "", Optional ByVal Interval as Integer = 600)
        If g_anim Then
 
            '=================================================================================================='
            '                                      Вариант с анимацией                                         '
            '=================================================================================================='
 
            If Vs Then
                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
            Else
                If Th2.IsAlive Then
                    Tme.DialogResult = Windows.Forms.DialogResult.OK
 
                    Th2 = Nothing
 
                    Th2_exist = False
                End If
            End If
        Else  
 
            '=================================================================================================='
            '                                    Вариант без анимации                                          '
            '=================================================================================================='
 
            If Vs Then
                Tmes.Label1.Text = Mes
            
                Tmes.Show()
                My.Application.DoEvents()
            Else
                Tmes.Hide()
                My.Application.DoEvents()
            End If
        End If
    End Sub

Public PF As New ProgressForm ' Форма прогресса

    Public Tme As Tm