Программа зависает с потоками в 64 - битной системе при открытии очень больших картинок - Visual Basic .NET

    
Friend Class Img
 
Private IsOK As Byte = 0 'Состояние картинки
Private Thread1 As System.Threading.Thread
Private WithEvents _timer As New Timer
Private _Filepath As String
Public Event IsIMGLoaded(ByVal IsLoaded As Byte)
 
Public Shadows Property FilePath() As String
        Get
            Return _Filepath
        End Get
        Set(value As String)
            GC.Collect()
            _Filepath = value           
            Thread1 = New System.Threading.Thread(AddressOf OpenBMP)
            Thread1.Start(value)
            _timer.Interval = 100
            _timer.Start()
        End Set
End Property
 
Private Sub OpenBMP(FilePath As String)
        Try
            TempBMP = New Bitmap(FilePath)
            m_OriginalImage = New Bitmap(TempBMP.Width, TempBMP.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            Resolution = TempBMP.HorizontalResolution
            m_OriginalImage.SetResolution(Resolution, Resolution)
            g_OriginalImage = Graphics.FromImage(m_OriginalImage)
            g_OriginalImage.DrawImage(TempBMP, 0, 0)
            TempBMP.Dispose()
            IsOK = 1 'картинка удачно подгрузилась
        Catch ex As Exception
            If TempBMP IsNot Nothing Then TempBMP.Dispose()
            If m_OriginalImage IsNot Nothing Then m_OriginalImage.Dispose()
            If ex.ToString.Contains("параметр") Or ex.ToString.Contains("памят") Then IsOK = 2 'картинка не смогла подгрузиться
        End Try
 
    End Sub
 
Private Sub _timer_tick() Handles _timer.Tick
        Select Case IsOK
                _timer.Stop()
            Case 1
                RaiseEvent IsIMGLoaded(1)            
            Case 2
                RaiseEvent IsIMGLoaded(2)
        End Select
        IsOK = 0 ' Состояние 0 - это когда картинка еще не подгрузилась
End Sub
 
Friend Overridable Sub Me_Disposed() Handles Me.Disposed
        If Thread1 IsNot Nothing Then
            Thread1.DisableComObjectEagerCleanup()
        End If
 
        If m_OriginalImage IsNot Nothing Then
            m_OriginalImage.Dispose()
        End If
 
        GC.Collect()
End Sub
 
End Class

Img.Dispose()
CreateImg() ' Здесь создается новый контрол с соответствующими параметрами
Img.FilePath = FileList(i)