SelectFolderDialog does not close when using Shell

when using a shell after selecting a Folder in selectFolderDialog
the selectFolderDialog Window is not closed until the shell is completed. (tested in 2015R1 and 2016R1)

is there a workaround?

the code is from LR

[code] Dim dlg As New SelectFolderDialog
dlg.ActionButtonCaption = “Select”
dlg.Title = “Title Property”
dlg.PromptText = “Prompt Text”
dlg.InitialDirectory = SpecialFolder.Documents

Dim f As FolderItem
f = dlg.ShowModal
If f <> Nil Then
// Use the folderitem here
dim sh as new Shell
sh.Mode = 0
sh.Execute (“blah blah”)
Else
// User cancelled
End If[/code]