I have a listbox which contains the path's of some cmd- or batchfiles (i.e. c:\temp\test.bat)

How can these files be executed in one single dosbox?

for x = 0 to List1.ListCount -1
If List1.Selected(x) = True Then
runscript = Shell(List1.List(x), vbNormalFocus)
x = x + 1
next x