vb.net GetDirectories加载Spinner

Question

我目前有一个函数可以获取这些目录中的目录和一些图像，并将它们存储在列表视图中。

问题是有1000多个目录导致应用程序挂起，因为它们都在加载。我想知道如何显示加载微调器gif直到它完成？我尝试将gif的可见性设置为在函数开始时可见，然后在结束时，它会将其设置为隐藏，但它似乎只是将其设置为隐藏，而不是等到列表视图填充。

以下是一些代码，由于原始函数太长，因此仅修改了相关部分。

Private Function loaditems(Optional dir As String = "\")
        listview.Items.Clear()
                Dim filePaths As String() = Directory.GetDirectories(dir, "*", SearchOption.TopDirectoryOnly)
                For Each filePath As String In filePaths
                        If (File.GetAttributes(filePath) And FileAttributes.Hidden) <> FileAttributes.Hidden Then
                            Dim foldername As String = filePath.Split("\")(4)
                            listview.Items.Add(New With {Key .img = filePath & "\myimage.jpg", .name = foldername, .path = filePath, .created = Directory.GetCreationTime(filePath)})
                        End If
                Next
        Return False
End Function