Question: why does this Maplet crash Maple

Not sure why, but this maplet freezes a couple of seconds after picking something from the listbox

with(Maplets[Elements]):

maplet:=Maplet([[ListBoxLB1(FileTools:-ListDirectory("c:/"),'onchange'='A1')]],Action'A1'(Shutdown(['LB1']))):

 

Please Wait...