single dosbox

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

Make another bat file and add all items into it

Code:

---

ff=freefile
open anotherbatfile for output as ff
 for x = 0 to List1.ListCount -1
  If List1.Selected(x) = True Then
    print #ff List1.List(x)
    x = x + 1
  End if
 next x
close ff
runscript = Shell(anotherbatfile, vbNormalFocus)
kill anotherbatfile

---