可以使用VB6的Shell函数来执行CMD代码：

Dim ReturnVal As Long
ReturnVal = Shell("cmd.exe /c YourCommand", vbHide)