VB6如何运行多行CMD命令？

VB6如何运行多行CMD命令？我想用VB制作一个EXE文件，点击按钮自动执行CMD代码，应该如何操作？
不使用VB调用外部CMD文件，执行多行CMD命令。

Private Sub Form_Load()
Shell "cmd /c msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

——————————————————
如果需要命令提示符执行完命令后不退出，则可用下面这个：
Private Sub Form_Load()
Shell "cmd /k msg %username% /time:5 你好，这是一个成功的实验"
end
End Sub

下面这个用函数解决：
Private Function cmd(str As String)
str = "cmd /k " & str & Chr(34)
Shell str
End Function

Private Sub Form_Load()
Dim str As String
str = "start c:\&dir c:\"
cmd (str)
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/s8qfv7f7fpfsp8v48p.html