在VB6中，你可以使用Shell函数来执行命令行命令，但是默认情况下它会启动一个新的cmd进程。如果你想要在不新开cmd进程的情况下执行命令行命令，你可以使用WScript.Shell对象的Run方法。下面土嘎嘎小编分享一段示例代码：
Private Sub RunCommandWithoutNewCmd(cmd As String)
Dim shell As Object
Set shell = CreateObject("WScript.Shell") '使用Run方法执行命令
shell.Run cmd, 0, False
Set shell = Nothing
End Sub
Private Sub Command1_Click()' 调用示例
RunCommandWithoutNewCmd "dir"
End Sub
在上面给出的示例代码中，我们创建了一个名为RunCommandWithoutNewCmd的子过程，其中使用CreateObject函数创建了一个WScript.Shell对象。然后，我们使用该对象的Run方法执行命令行命令，并传递参数0和False。第一个参数是执行命令时的窗口样式，0表示隐藏窗口；第二个参数表示是否等待命令执行完成，False表示不等待。
最后，我们在Command1_Click事件处理程序中调用RunCommandWithoutNewCmd过程，并传递要执行的命令（例如 "dir"）作为参数。当点击Command1按钮时，将在不新开cmd进程的情况下执行命令。
土嘎嘎技术网友情提示：使用WScript.Shell对象的Run方法执行命令行命令需要系统中安装了Windows Script Host (WSH)。这通常在Windows系统中默认安装，但如果你的系统没有WSH，请确保进行安装或使用其他方法来执行命令。