代码如下。===================================Private Sub Command1_Click()Shell "程序名", vbMinimizedNoFocusEnd Sub