How can I suppress the DOS window from poping while using DOS commands [command line], in my programs.

This is the code that I have been working with. It does the job, but keeps poping the Dos Window throughout my commands.

* mdir    is the directory variable
* zipfl   is the zip file name variable

mtopdir = subs(mdir,1,at('\',mdir)-1)
mtopfls = subs(zipfl,1,at('.',zipfl))+'top'

*** Either OF these
!zip &mtopfls &mtopdir\*.* >BitRun.bak
*** Or
=ShellBackup([zip &mtopfls &mtopdir\*.* >BitRun.bak])
***

FUNC ShellBackup
Para lcCmd
loShell = CREATEOBJECT("wscript.shell")
lnSuccess = loShell.Run(lcCmd,1,.t.)

Thanks