如何vb打开cmd并运行一个命令

Private Sub Form_Load()Shell "cmd /c msg %username% /time:5 你好，这是一个成功的实验"endEnd Sub――――――――――――――――――如果需要命令提示符执行完命令后不退出，则可用下面这个：Private Sub Form_Load()Shell "cmd /k msg %username% /time:5 你好，这是一个成功的实验"endEnd Sub 下面这个用函数解决：Private Function cmd(str As String)str = "cmd /k "&str &Chr(34)Shell strEnd FunctionPrivate Sub Form_Load()Dim str As Stringstr = "start c:\&dir c:\"cmd (str)End Sub 收起