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

    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(2000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        If PictureBox1.InvokeRequired Then
            PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        End If
    End Sub
 
    Sub ForPB()
        PictureBox1.Refresh()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

        Call Shp(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp(False)

    Public Sub Shp(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
         If Vs Then
             Tme.Label1.Text = Mes
 
             Tme.Show()
 
             My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

    Dim NewThread As Thread
 
    Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub
 
    'Sub ForPB()
    '    PictureBox1.Refresh()
    'End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        NewThread = New Thread(AddressOf ForNewThread)
        NewThread.IsBackground = True
        NewThread.Start()
    End Sub

        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

    Public Sub Shp2(ByRef Vs As Boolean, Optional ByRef Mes As String = "")
        If Vs Then
            If Tme.Pic1.InvokeRequired Then
                Tme.Pic1.Invoke(New System.Threading.ThreadStart(AddressOf ForPB))
            End If
        
            Tme.Label1.Text = Mes
 
            Tme.Show()
 
            My.Application.DoEvents()
        Else
            Tme.Hide()
 
            My.Application.DoEvents()
        End If
 
    End Sub

    Sub ForPB()
        Tme.Pic1.Refresh()
    End Sub

    Sub Work()
        For I As Integer = 0 To 10
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim th As System.Threading.Thread = New Threading.Thread(AddressOf Task_A)
        th.Start()
 
        Work()
    End Sub
 
 
    Public Sub Task_A()
       Application.Run(Form2)
    End Sub

Sub ForNewThread()
        For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next
        'If PictureBox1.InvokeRequired Then
        '    PictureBox1.Invoke(New ThreadStart(AddressOf ForPB))
        'End If
    End Sub

        Call Shp2(True, "Идет загрузка текущей выборки ...")
        
        Call Rd_DataSet_From_XML(DTS_GRD, Fnm, True, False, False)
 
        Call Shp2(False)

For I As Integer = 0 To 5
            Thread.Sleep(1000)
            IO.File.WriteAllText(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "" & I & ".txt", I)
        Next