코어 하나만 사용해서 사진이 1000장 이상 있는경우 로딩하는데 수십초 이상 걸립니다.

멀티코어를 사용하게 하면 빠를것 같아서 나름 정보를 찾아봤는데 안되네요 ㅠㅠ

혹시 멀티코어 처리가 불가능한 코드인가요? 아니면 애초부터 비베로 만든 프로그램은 멀티코어 처리가 불가능한가요?

    Dim path As String

    Public path1 As String

    Public Function Getthumbnail()

        path = BOXPATH.Text

        Dim dir = path

        For Each path In IO.Directory.GetFiles(path)

            Using shFile = Microsoft.WindowsAPICodePack.Shell.ShellFile.FromFilePath(path)

                Dim name = IO.Path.GetFileName(path)

                PreloadInIconCache(dir, name, 256)

                Me.TheListView.BeginUpdate()

                Me.TheListView.Items.Add(name, name)

                Me.TheListView.EndUpdate()

            End Using

        Next

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        path1 = BOXPATH.Text

        Getthumbnail()

    End Sub

    Public Shared Sub PreloadInIconCache(path As String, name1 As String, Optional iconSize As Integer = 256)

        Try

            Using folder As ShellFile = DirectCast(ShellObject.FromParsingName(path + "\" + name1), ShellFile)

                Using thumbnail As Bitmap = folder.Thumbnail.Bitmap

                    Form1.TheImageList.Images.Add(name1, thumbnail)

                End Using

            End Using

        Catch

        End Try

    End Sub