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